in reply to Is there a system command in Linux
#!/usr/bin/perl use strict; use warnings; $ENV{PATH}="/usr/bin:/usr/local/bin:/bin"; system("firefox http://www.perlmonks.org");
#!/usr/bin/perl # use strict; use warnings; $ENV{PATH}="/usr/bin:/usr/local/bin:/bin"; my @browsers = qq|firefox lynx|; USEBROWSER: { for (@browsers) { my $status = (system("$_ http://www.perlmonks.org") == 0 ) ? 0 + : 1; last USEBROWSER if $status == 0; } print "No suitable browser was found...\n"; }
|
|---|