root/lang/c/NetworkUpdater/trunk/Build/crlf.pl @ 39000

Revision 39000, 233 bytes (checked in by saturday06, 3 years ago)

ozozoidjfoaioeja

Line 
1# -*- utf-8-unix -*-
2
3use strict;
4use warnings;
5
6if (!open(OUTPUT, ">" . $ARGV[0])) {
7    exit
8}
9binmode OUTPUT;
10
11binmode STDIN;
12while (<STDIN>) {
13    s/\r\n/\n/g;
14    s/\r/\n/g;
15    s/\n/\r\n/g;
16    print OUTPUT;
17}
18
19close(OUTPUT);
20
Note: See TracBrowser for help on using the browser.