Dear Prasanth, next time please reply to the list. I'm going to comment on your code after this forwarded message arrives at the list.
Regards,
Shlomi Fish
Begin forwarded message:
Date: Tue, 10 Feb 2015 11:01:56 +0530
From: prasanth <[email protected]>
To: Shlomi Fish <[email protected]>
Subject: Re: use perl format data
Hi,
Lets see if the below code helps:
sub read_array{
my @file;
($filename) =@_;
open($fh,'<:encoding(UTF-8)', $filename) or die "Could not open file
'$filename' $!";
while (my $row = <$fh>) {
chomp $row;
push(@file,$row);
}
close($fh);
@file;
}
@fa= &read_array('fa.txt');
@fb= &read_array('fb.txt');
@fc= &read_array('fc.txt');
$i=0;
while($i<=3){
print "$fa[$i]\t$fb[$i]\t$fc[$i]\n";
$i++;
}
Thanks,
Prasanth.
On Sun, Feb 8, 2015 at 9:38 PM, Shlomi Fish <[email protected]> wrote:
> On Sun, 8 Feb 2015 15:51:59 +0000
> "Wang, Zeng-Sheng (TS-GSD-China-ZZ)" <[email protected]> wrote:
>
> > Thanks for your kindly suggestion, you help me learn more of perl
> knowledge.
> >
>
> You're welcome! My pleasure.
>
> Regards,
>
> Shlomi Fish
>
> --
> -----------------------------------------------------------------
> Shlomi Fish http://www.shlomifish.org/
> http://www.shlomifish.org/humour/bits/facts/Emma-Watson/
>
> Chuck Norris once wrote a 10 million lines C++ program in Microsoft Notepad
> without having to use the backspace key. And it compiled without errors or
> warnings, and was 100% bug‐free.
>
> Please reply to list if it's a mailing list post - http://shlom.in/reply .
>
> --
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
> http://learn.perl.org/
>
>
>
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
Funny Anti-Terrorism Story - http://shlom.in/enemy
The conversation about how someone shouldn’t do something in an IRC channel is
always at least twice as long as the text the accused person created in the
first place — Chris62vw’s Rule
Please reply to list if it's a mailing list post - http://shlom.in/reply .
Hi,
Lets see if the below code helps:
sub read_array{
my @file;
($filename) =@_;
open($fh,'<:encoding(UTF-8)', $filename) or die "Could not open file '$filename' $!";
while (my $row = <$fh>) {
chomp $row;
push(@file,$row);
}
close($fh);
@file;
}
@fa= &read_array('fa.txt');
@fb= &read_array('fb.txt');
@fc= &read_array('fc.txt');
$i=0;
while($i<=3){
print "$fa[$i]\t$fb[$i]\t$fc[$i]\n";
$i++;
}
Thanks,
Prasanth.
On Sun, Feb 8, 2015 at 9:38 PM, Shlomi Fish <[email protected]> wrote:
On Sun, 8 Feb 2015 15:51:59 +0000
"Wang, Zeng-Sheng (TS-GSD-China-ZZ)" <[email protected]> wrote:
> Thanks for your kindly suggestion, you help me learn more of perl knowledge.
>
You're welcome! My pleasure.
Regards,
Shlomi Fish
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
http://www.shlomifish.org/humour/bits/facts/Emma-Watson/
Chuck Norris once wrote a 10 million lines C++ program in Microsoft Notepad
without having to use the backspace key. And it compiled without errors or
warnings, and was 100% bug‐free.
Please reply to list if it's a mailing list post - http://shlom.in/reply .
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
-- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
