From: "Paul Kraus" <[EMAIL PROTECTED]>
> Any ideas why this fails. If I remove if /aged/ and just have the if
> /Reports ... then everything works ok.
>
> Code
> #!/usr/bin/perl
> my @files;
> my %age;
> push (@files, glob "Aged*");
> push (@files, glob "Receipts*");
>
> foreach (@files){
>
]]
Sent: Thursday, December 19, 2002 09:12
To: Perl
Subject: If Statement Nested Regular Exp.
Any ideas why this fails. If I remove if /aged/ and just have the if
/Reports ... then everything works ok.
Code
#!/usr/bin/perl
my @files;
my %age;
push (@files, glob "Aged*");
push (@f
Any ideas why this fails. If I remove if /aged/ and just have the if
/Reports ... then everything works ok.
Code
#!/usr/bin/perl
my @files;
my %age;
push (@files, glob "Aged*");
push (@files, glob "Receipts*");
foreach (@files){
open FILE,"<$_";
print "$_\n";
while(){
if (
