adolfopa/miscutils
1
1
Fork 1
Code Issues Pull Requests 2 Projects Releases Wiki Activity

p - Don't ask for command when finished, exit directly

Browse Source
This commit is contained in:
Adolfo Perez Alvarez 2024-07-05 17:00:22 +02:00
parent bd5a149cc0
commit 61efff731f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p
View File

@ -27,19 +27,21 @@ sub printfile {
print;
&evalcmd unless ++$lines % $pagesize;
}
&evalcmd;
}
unshift(@ARGV, '-') unless @ARGV;
my $n = $#ARGV;
for (@ARGV) {
if (/^-$/) {
&printfile(\*STDIN);
&evalcmd if $n--;
} elsif (/^-(\d+)$/) {
$pagesize = $1;
} else {
open(my $fh, '<', $_) or die "$0: Cannot open $_ for reading: $!";
&printfile($fh);
&evalcmd if $n--;
close($fh);
}
}