diff options
| author | Lars Knoll <lars.knoll@nokia.com> | 2009-03-23 09:34:13 (GMT) |
|---|---|---|
| committer | Simon Hausmann <simon.hausmann@nokia.com> | 2009-03-23 09:34:13 (GMT) |
| commit | 67ad0519fd165acee4a4d2a94fa502e9e4847bd0 (patch) | |
| tree | 1dbf50b3dff8d5ca7e9344733968c72704eb15ff /util/scripts/unix_to_dos | |
| download | Qt-67ad0519fd165acee4a4d2a94fa502e9e4847bd0.zip Qt-67ad0519fd165acee4a4d2a94fa502e9e4847bd0.tar.gz Qt-67ad0519fd165acee4a4d2a94fa502e9e4847bd0.tar.bz2 | |
Long live Qt!
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; + } + } +} |