"Sayed, Irfan (Irfan)" schreef:
> Following is the code which I am executing.
Missing:
use warnings ;
use strict ;
>
> my $fname3 = "/tmp/vob_repl_list_test1";
> open(FILE2, $fname3);
Missing: error checking.
open my $fh3, '<', $fname3 or die "open $fname3, stopped $!" ;
> my @vob_repl_list = <FILE2>;
> close(FILE2);
It might be a good idea to have a robust file2array() around, for
answers in this list.
Or is that too PHP?
First try:
#!/usr/bin/perl
# Script-ID: f2a.pl
use warnings ;
use strict ;
sub file2array ($\@;$)
{
my ($fname, $aref, $src_line) = @_ ;
my $fh ;
$src_line ? do {open $fh, '<', $fname
or die "line $src_line: open '$fname': $!\n"}
: do {open $fh, '<', $fname
or die "open '$fname': $!\n"} ;
@$aref = <$fh> ;
$src_line ? do {close $fh
or die "line $src_line: close '$fname': $!\n"}
: do {close $fh
or die "close '$fname': $!\n"} ;
return 1 ;
}
my @test ;
file2array $0, @test, __LINE__ or die ;
print @test, "\n" ;
file2array "$0.bad", @test or die ;
print @test, "\n" ;
__END__
> foreach my $a(@vob_repl_list)
> {
> `$MT chreplica -host puvob02 $a`;
> }
It is not a good idea to use $a or $b, see `perldoc perlvar`.
> I am not getting the proper value of $a in the command `$MT chreplica
> -host puvob02 $a`;
>
> I know that array @vob_repl_list is not empty.
Try again with warnings and strictures on, and always have them on from
now on.
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
