Perl - dos til unix

[Roff1]

Hei,

 

Jeg har en unix fil på en windows pc som jeg må endre en HEX verdi i før jeg sender den videre.

Problemet er at etter at perlscriptet mitt lagrer filen i DOS format.

Koden min ser slik ut:

 

opendir( DIRHANDLE, "Input" ) or die "Input Directory: $INPUTDIR do not exist.\n";

 

@InputFileName = readdir(DIRHANDLE);

 

# For each file in input dir

foreach $inputFile (@InputFileName) {

 

# Skip directories

if ( -d $inputFile ) { next }

 

open(INPUTFILE,"<Input\\$inputFile") or die "Can't open $inputFile";

open(OUTPUTFILE,">Output\\$inputFile") or die "Can't create $inputFile";

 

# Loop throgh input file lines

while (<INPUTFILE>) {

$lineStr = $_;

 

$lineStr =~ s/\x23/\x20/g; # HexEdit

 

print OUTPUTFILE $lineStr;

}

 

close (INPUTFILE);

close (OUTPUTFILE);

}

 

closedir(DIRHANDLE);

 

exit;

 

Som dere ser er det et enkelt script som kun skal endre en HEX verdi.

Er det noen enkel på jeg kan lagre outputfilen i unix format? Eller går det an å konvertere filen til unix etterpå?

Jeg er ganske ny med Perl så jeg takker for enkle svar;)

[kpolberg]

På mange linux maskiner finnes dos2unix.

[Roff1]

På mange linux maskiner finnes dos2unix.

Ja, men jeg sitter på en windows maskin..

[kpolberg]

http://www.dos2unix.org/

 

http://www.freedownloadscenter.com/Utilities/Misc__Utilities/DOS2UNIX_UNIX2DOS.html

[gizzlon]

Forskjellen er vel bare hva en "ny linje" er? Litt rart at den forandrer på det, ser jo ut som om du bare skriver ut det du får inn..

[gizzlon]

kanskje det hjelper med:

binmode(INPUTFILE);
binmode(OUTPUTFILE);

Sier at den ikke skal forandre newline, se:

http://perldoc.perl.org/functions/binmode.html

 

er vel også mulig å putte det inn i open() kallet

[Roff1]

kanskje det hjelper med:

binmode(INPUTFILE);
binmode(OUTPUTFILE);

Sier at den ikke skal forandre newline, se:

http://perldoc.perl.org/functions/binmode.html

 

er vel også mulig å putte det inn i open() kallet

 

Det var dette jeg var på jakt etter, fungerer udmerket

Tusen hjertelig takk!

[asicman]

Finnes det ikke noe tilsvarende tr til Windows? Da kunne man skrive:

 

echo "hello 123#abc" | tr "\043" "\040"
hello 123 abc