print "$tstopen\n";
while () {
@fields1 = split /:/, $tstopen;
print "$fields1[0]\n";
print "$fields1[1]\n";
print "$fields1[2]\n";
print "## End of Test Open ####\n\n";
}
}
-Original Message-
From:
en (IN1, "< $file");
$tstopen = ;
chomp $tstopen;
print "$tstopen\n";
@fields1 = split /:/, $tstopen;
print "$fields1[0]\n";
chuck
-Original Message-
From: Mark Anderson [mailto:[EMAIL PROTECTED]]
Sent: Friday, October 04, 2002 7:09 PM
To: Ch
My goal is to spit a file or files that are in a specific directory. My
problem is that I can't read the file.
Attempt to read file:
#!/usr/bin/perl
open (IN, " < /opt/crxml/tstdir/updt1.dat");
until (eof IN) {
$line = ;
chomp $line;
print $line;
@fields = split /:/, $line;
print "$fie
:52:47 GMT
Warning: Cannot install NET::FTP, don't know what it is.
Try the command
i /NET::FTP/
to find objects with matching identifiers.
Thanks in advance
chuck belcher
I have just started using perl and I have been asked to write a script
that will open a perl script, count all of the variables identified by
$... and print to the screen the number of unique variables and display
a list of variables used. Can anyone tell me where to start?
--
To unsubscribe
