Shell Scripting

Shell Scripting RSS

How to pass a shell variable to a perl command

Thread Solved

•

Join Date: Jun 2009

Posts: 3

Reputation: lanepds is an unknown quantity at this point

Solved Threads: 0

lanepds

Offline

Newbie Poster

How to pass a shell variable to a perl command

Jun 26th, 2009

I have defined a variable in bash

Help with Code Tags

Shell Scripting Syntax (Toggle Plain Text)

$ MYDATESTAMP="2009-06-25 21:57:18"

I would like to pass this to perl to perform a simple date conversion.

If I enter the date manually it works.

 Help with Code Tags 
 Shell Scripting Syntax (Toggle Plain Text) 
$ perl -MDate::Parse -le'print str2time("2009-06-25 21:57:18");'
$ 1245992238
$ perl -MDate::Parse -le'print str2time("2009-06-25 21:57:18");'
$ 1245992238

My attempts to pass the variable MYDATESTAMP into this command it returns nothing.

Help with Code Tags

Shell Scripting Syntax (Toggle Plain Text)

$ perl -MDate::Parse -le'print str2time("$MYDATESTAMP");'

How can this be done?

•

Join Date: Jun 2009

Posts: 3

Reputation: lanepds is an unknown quantity at this point

Solved Threads: 0

lanepds

Offline

Newbie Poster

Re: How to pass a shell variable to a perl command

Jun 26th, 2009

Ok, I figured out a way to do this. It's not elegant, but it managed to get the job done.

What I did was echo the $MYDATESTAMP variable from bash into a file named mydatestamp.txt and had a tiny perl script which I named "foo.pl" read that file and then perform the date format conversion.

bash

 Help with Code Tags 
 Shell Scripting Syntax (Toggle Plain Text) 
#echo the datestamp to a text file. 
echo $MYDATESTAMP > mydatestamp.txt
# Set a new variable by having perl read the text file and convert the time format
MYDATESTAMP2=$(/usr/bin/perl foo.pl)
#echo the datestamp to a text file. 
echo $MYDATESTAMP > mydatestamp.txt
# Set a new variable by having perl read the text file and convert the time format
MYDATESTAMP2=$(/usr/bin/perl foo.pl)

foo.pl (perl)

 Help with Code Tags 
 Shell Scripting Syntax (Toggle Plain Text) 
#!/usr/bin/perl
use Date::Parse 'str2time';
open (MYDATESTAMP, "mydatestamp.txt");
 while ($record = <MYDATESTAMP>) {
      my $date = $record;
      my $epoch = str2time($date);
	  #print "Epoch: $epoch\n";
      #print $record;
      print "$epoch"
}
close(MYDATESTAMP);
#!/usr/bin/perl
use Date::Parse 'str2time';
open (MYDATESTAMP, "mydatestamp.txt");
 while ($record = <MYDATESTAMP>) {
      my $date = $record;
      my $epoch = str2time($date);
	  #print "Epoch: $epoch\n";
      #print $record;
      print "$epoch"
}
close(MYDATESTAMP);

•

Join Date: Feb 2009

Posts: 3,141

Reputation: sknake has much to be proud of

Solved Threads: 555

sknake

Offline

.NET Enthusiast

Re: How to pass a shell variable to a perl command

Jun 26th, 2009

export the variable and use $ENV:

 Help with Code Tags 
 bash Syntax (Toggle Plain Text) 
sk@sk:~$ export MYDATESTAMP="2009-06-25 21:57:18"
sk@sk:~$ perl -MDate::Parse -le'print str2time($ENV{"MYDATESTAMP"});'
1245981438
sk@sk:~$ export MYDATESTAMP="2009-06-25 21:57:18"
sk@sk:~$ perl -MDate::Parse -le'print str2time($ENV{"MYDATESTAMP"});'
1245981438