Possible to have perl code into bash script ?

frenchn00b · 07-02-2007, 12:43 PM

example:

Code:

#/bin/bash
echo "this is bash script"
echo "--"
perl -e "
   
my perl commands

   use Shell qw(cat ps cp);
   $passwd = cat('</etc/passwd');
   @pslines = ps('-ww'),
   cp("/etc/passwd", "/tmp/passwd");

   # object oriented 
   my $sh = Shell->new;
   print $sh->ls('-l');


"

acid_kewpie · 07-02-2007, 01:17 PM

well you've written a script there, have you tried it? should generally be fine as it's nothing more than a per one liner over a number of lines (apart from that "my perl commands" gubbins, oh and the fact that youre extenral " marks will clash with the internal ones.

frenchn00b · 07-03-2007, 12:35 PM

Quote:

Originally Posted by acid_kewpie

well you've written a script there, have you tried it? should generally be fine as it's nothing more than a per one liner over a number of lines (apart from that "my perl commands" gubbins, oh and the fact that youre extenral " marks will clash with the internal ones.

I found this EOF... in startfluxbox.

Could this code somehow work ?

Code:

#/bin/sh


echo "This is sh"

echo "this is perl code to begin"

( perl -e << EOF

print "hello" ;
print " This is perl";


my $filename = "tmp.htm";
$contents = `curl http://www.google.com  | grep current `;

open(F, $contents ) or die( "can't the file \n" );

$line = <F>; 
print $line ;
$line = <F>; 
print $line ;


{

print $line ;

} 

EOF
    ) 


echo "back to sh"

echo "script finished"

acid_kewpie · 07-03-2007, 12:56 PM

you given complete two examples, yet haven't tried either... the second example is part of a fully functional script on your system, pretty likely it works just fine...