how to extract data in specified format to another file

[Chandrasekaran Mythili]

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
encountered.that is i want the resultant file to have

4830202E2E2E

what command should i use get all the data in the same line?

any help ASAP is appreciated

Thanks.

[Kevin Pfeiffer]

In article
<ECB4515E76FBD411917100D0B7C9F69C0850EE1D@vap1ex31 .vcs.visteon.com>,
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
> 2E
> 2E
> 0
> 0
> 0
>
> i want to copy the contents of this file to another file till 0 is
> encountered.that is i want the resultant file to have
>
> 4830202E2E2E
>
> what command should i use get all the data in the same line?

There is probably some subtlety of handling hexadecimal (just learned how to
add and subtract it yesterday) that I'm overlooking, but on the surface,
how about something as simple as:

while (<DATA>) {

chomp;
print;
last if /^0$/;
}

print "\n";


--
Kevin Pfeiffer

[Kevin Pfeiffer]

In article <1777126.6tHrYhVHHC@sputnik.tiros.net>, Kevin Pfeiffer wrote:
[...]

> while (<DATA>) {
>
> chomp;
> print;
> last if /^0$/;
> }
>
> print "\n";

Whoops, too fast for my own good (points off for carelessness):

while (<DATA>) {
chomp;
print unless /^0$/;
}

print "\n";

__END__

But what I'm not sure about (being more cautious now) - could there be '0's
in the valid data? Or are they represented as '00' in hex? (Think so, but
have to look)


--
Kevin Pfeiffer

[John W. Krahn]

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
>
> i want to copy the contents of this file to another file till 0 is
> encountered.that is i want the resultant file to have
>
> 4830202E2E2E
>
> what command should i use get all the data in the same line?

perl -ne'0+$_&&print/./g' file1 > file2


:-)

John
--
use Perl;
program
fulfillment