> -Original Message-
> From: Pradeep Sethi [mailto:[EMAIL PROTECTED]]
> Sent: Monday, December 10, 2001 8:49 PM
> To: [EMAIL PROTECTED]
> Subject: getting lines from a file
>
>
> With this code, I get :
>
> #!/usr/bin/perl -w
>
> my $ordfile=
With this code, I get :
#!/usr/bin/perl -w
my $ordfile=shift || die "unable to open : $!s\n";
open (LIST, "<$ordfile") || die "unable to open file $ordfile : $!\n";
while () {
# chomp; # a)
my $line=$_;
print STDERR "\nline : *** $line ***";
}
line : *** 6M2FD9XV
***
line : ***
