diff options
| author | axis <qt-info@nokia.com> | 2009-04-24 11:34:15 (GMT) |
|---|---|---|
| committer | axis <qt-info@nokia.com> | 2009-04-24 11:34:15 (GMT) |
| commit | 8f427b2b914d5b575a4a7c0ed65d2fb8f45acc76 (patch) | |
| tree | a17e1a767a89542ab59907462206d7dcf2e504b2 /util/scripts/unix_to_dos | |
| download | Qt-8f427b2b914d5b575a4a7c0ed65d2fb8f45acc76.zip Qt-8f427b2b914d5b575a4a7c0ed65d2fb8f45acc76.tar.gz Qt-8f427b2b914d5b575a4a7c0ed65d2fb8f45acc76.tar.bz2 | |
Long live Qt for S60!
Diffstat (limited to 'util/scripts/unix_to_dos')
| -rwxr-xr-x | util/scripts/unix_to_dos | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/util/scripts/unix_to_dos b/util/scripts/unix_to_dos new file mode 100755 index 0000000..510037c --- /dev/null +++ b/util/scripts/unix_to_dos @@ -0,0 +1,16 @@ +#!/usr/bin/perl + +undef $/; + +foreach $f ( @ARGV ) { + if ( open( F, "< $f" ) ) { + $i = <F>; + close F; + $i =~ s/\n/\r\n/g; + $i =~ s/\r+/\r/g; + if ( open( F, "> $f" ) ) { + print F $i; + close F; + } + } +} |