Re: Shell usable?

[amphiplex]

Hi !

I believe you are doing a bit too much here, this should work:

#!/usr/bin/perl -w
use strict;
use Shell qw( ls touch );


touch( "dummy" );
ls( "dummy" );

---- kurt

[axelrose]

You're right. This is a silly example but imagine some intermedia processing with the dummy file ... the error pops up the second time I use the $sh->ls.

[axelrose]

sorry, I misunderstood you saying "doing too much"
I tried again not using OO style

#!/usr/bin/perl -w
use strict;
use Shell qw( ls touch );

touch( "dummy" ) or die "touch: $!";
ls( "dummy" ) or die "first ls: $!";
ls( "dummy" ) or die "second ls: $!";

and get different error messages:

$ rm dummy
$ perl shell-test.pl
touch: Illegal seek at shell-test.pl line 6.
$ touch dummy
$ perl shell-test.pl
touch: Illegal seek at shell-test.pl line 6.