https://github.com/streptomyces/ripper
Raw File
Tip revision: 44ecc7291a78ea739afe2774eb65345b190d31e6 authored by streptomyces on 01 November 2023, 12:24:35 UTC
Additions to .gitignore.
Tip revision: 44ecc72
cat.pl
#!/usr/bin/perl
use 5.14.0;
use utf8;
my $ifn = $ARGV[0];
open(IN, "<", $ifn);
while(<IN>) {
my $line = $_;
chomp($line);
$line =~ s/\r$//;
print("$line\n");
}

back to top