projects
/
ossec-hids.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
33a8146a0a48cfb686ff7dafc5515881572fe2cc
[ossec-hids.git]
/
unix2dos.pl
1
#!/usr/bin/perl
2
3
my $file;
4
5
if(@ARGV < 1)
6
{
7
die "$0: <file>\n";
8
}
9
10
$file = shift (@ARGV);
11
12
# File
13
open(FILE,"<$file")|| die "Unable to open file: $file\n";
14
15
while(<FILE>)
16
{
17
my $line = $_;
18
19
$line =~ s/\n/\r\n/;
20
print $line;
21
}