I don't know if this is the most efficient way to do it, but it worked.
#!C:\Perl\bin\perl.exe -w
use strict;
my $infile = qq(C\:\\cmd.txt);
my $outfile = qq(C\:\\cmdout.txt);
my $cmdline;
open(IN,"<$infile") or die "Whoops! Look what happened. $! \n";
open(OUT,">$outfile") or die "Could not o
Whoops, correction...
else
{
$line =~ s/(\n)+(\r)+//g; # use $line instead of $_
($cmdline) = split(/,/,$line);
print OUT "$cmdline \n";
}
-Original Message-----
From: inSite Internet Solutions [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 24, 2002 9:39 AM
To: Avan
directory chmod'd 4711)
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-Original Message-
From: Sebastian Nerz [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 24, 2002 10:22 AM
To: [EMAIL PROTECTED]
Subject: Checking who called a cgi-script
Hy,
I n
