Chandrasekaran Mythili wrote:
>
> HI,
Hello,
> I am new to Perl and I need some help regarding tranfering the contents of
> one file to other file in specified format using perl.
>
> the problem is i have one file with data(data is in hex) as follows:
> 48
> 30
> 20
> 2E
> 2E
> 2E
> 0
> 0
> 0
>
In article <[EMAIL PROTECTED]>, Kevin Pfeiffer wrote:
[...]
> while () {
>
> chomp;
> print;
> last if /^0$/;
> }
>
> print "\n";
Whoops, too fast for my own good (points off for carelessness):
while () {
chomp;
print unless /^0$/;
}
print "\n";
__END__
But what I'm not
In article
<[EMAIL PROTECTED]>,
Chandrasekaran Mythili wrote:
> HI,
>
> I am new to Perl and I need some help regarding tranfering the contents of
> one file to other file in specified format using perl.
>
> the problem is i have one file with data(data is in hex) as follows:
> 48
> 30
> 20
> 2E
HI,
I am new to Perl and I need some help regarding tranfering the contents of
one file to other file in specified format using perl.
the problem is i have one file with data(data is in hex) as follows:
48
30
20
2E
2E
2E
0
0
0
i want to copy the contents of this file to another file till 0 is
en
