小编Mit*_*lWB的帖子

这是所有内部服务器和软件,因此我对我的选择非常有限,但这就是我所处的位置.这已经成为一种解决方案的创可贴,但我别无选择,所以我只是想让它发挥作用.

我的服务器上有一个简单的.asp文件,该文件受到处理用户身份验证的服务的保护(我无法控制此服务).当用户转到此.asp文件时,它要求他们通过服务进行身份验证,然后服务将它们重定向到.asp.

该服务正在将自定义值插入到http标头中,以便我识别已登录的用户(我需要进一步下载).当我使用asp从标题中查看ALL_RAW和ALL_HTTP值时,我可以看到所有自定义值.但是,当我试图专门调用这些值时,我什么也得不到.

我跑了这个简单的循环:

<%
for each x in Request.ServerVariables
  response.write("<B>" & x & ":</b> " & Request.ServerVariables(x) & "<p />")
next
%>

并显示所有键,包括自定义键.但是没有一个自定义值会.价值观是我需要的部分.

我唯一能发现自定义值的独特之处在于它们在ALL_RAW值中看起来略有不同,但它们在ALL_HTTP中看起来都是正确的.我可以告诉他们,它们的格式正确.标准值和自定义值之间的唯一格式差异是大小写和下划线而不是连字符.

为什么我不能阅读这些自定义值？

我不是很擅长Perl,但我需要能够对多维数组进行排序.我一直在玩一些测试代码,试图更好地掌握这个概念,我想我已经接近了,但我找不到神奇的组合.

我似乎无法做的是取消引用我的数组并让它们正确打印.除了引用的数组中的值之外,我似乎可以得到关于这些引用的世界上所有关于这些引用的信息.

我从制表符分隔的平面文件中获取数据,所以在我的示例代码中,我通过分割创建多个数组然后将它们推入单个数组来模仿它.在实践中,我将循环遍历文件,在选项卡上拆分并在我进入时将它们推入阵列.

如果有更好的方法来解决这个问题,我会全力以赴.平面文件中的每一行都是一条记录.我需要先按日期排序,将最旧的记录放到顶部,然后进行辅助排序,按照帐号对记录进行分组.我在线查看了几个例子,但没有找到任何似乎与我需要模仿的数据一起工作的东西.

my @s1 = split(/:/, 'X:Y:Z');
my @s2 = split(/:/, 'A:B:C');
my @s3 = split(/:/, 'Q:L:P:0');
my @s4 = split(/:/, 'U:E:G');

my @array = ();
push(@array, \@s1);
push(@array, \@s2);
push(@array, \@s3);
push(@array, \@s4);

print "@array\n";

my @sorted = sort { $a->[0] cmp $b->[0] } @array;

print "\n";
foreach $thingy (@sorted)
{
    print @thingy . "\n"; #result: number 0
    print $thingy . "\n"; #result: reference
    #print ${$thingy} . "\n"; #result: 'Not a scalar reference' error
    print ${@thingy} . …