13 lines
281 B
Perl
Executable file
13 lines
281 B
Perl
Executable file
# a basic example of how to write a standard input output shell in perl, it invokes system library's shell to write shell commands when invoked
|
|
# to invoke: perl foo.pl
|
|
|
|
use strict;
|
|
use warnings;
|
|
# my $string = "shell:"
|
|
# print "$string\n";
|
|
|
|
while(<>) {
|
|
system($_);
|
|
}
|
|
|
|
exit 0;
|