File: w2u.prl

package info (click to toggle)
openmx 3.7.6-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 325,856 kB
  • ctags: 3,575
  • sloc: ansic: 152,655; f90: 2,080; python: 876; makefile: 675; sh: 25; perl: 18
file content (12 lines) | stat: -rwxr-xr-x 220 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

$file = "tmp_ls";
open(INPUTFILE,$file);

while ($name = <INPUTFILE>){
 chop($name);
 print"cat $name | tr -d '\\r' > tmp_file\n";
 print"cp tmp_file $name\n";
 print"rm tmp_file\n";
}
close(INPUTFILE);