ir\n";
> chomp $file;
>
> #Open Files
> open (FH, "< $file") or die "could not open $file";
> $tstopen = ;
> chomp $tstopen;
> print "$tstopen\n";
> while () {
> @fields1 = split /:/, $tstopen;
> print &quo
On Oct 4, Chuck Belcher said:
>I can now get the first part to open and read a file, however, It still
>does not work when I am reading the directory. The print $file found in
>$in_dir does work it displays a list of files in the directory. The open
>(IN1, "<$file"); does not appear to open the f
# Read Directory
>while ($file = readdir(IN_DIR)) {
> next if $file =~ /^\.\.?$/;
> print "$file found in $in_dir\n";
> chomp $file;
>#Open Files
> open (IN1, "< $file");
> $tstopen = ;
> chomp $tstopen;
> print "$tstopen\n";
>@fiel
iles
> open (IN1, "< $file");
> $tstopen = ;
> chomp $tstopen;
> print "$tstopen\n";
>@fields1 = split /:/, $tstopen;
>print "$fields1[0]\n";
>
>chuck
>
>-Original Message-
>From: Mark Anderson [mailto:[EMAIL PROT
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
