DOS33-perl/procat.pl
Leeland Heins aeba0d32bd
Bug fixes
2019-01-14 14:21:20 -06:00

28 lines
382 B
Perl

#!/usr/bin/perl -w
use strict;
use ProDOS;
my $debug = 0;
my $blk = 0x0;
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
if ($ARGV[0] eq '-d') {
$debug = 1;
shift;
} elsif ($ARGV[0] eq '-b' && defined $ARGV[1] && $ARGV[1] =~ /^\d+$/) {
$blk = $ARGV[1];
shift;
shift;
}
}
my $pofile = shift or die "Must supply filename\n";
cat($pofile, $debug);
1;