combine two perl lines into a single perl command

jimmy_y · #1 (**permalink**) 06-14-2009

Hi Everyone,
i have a string 00:44:40

so:
$tmp=~ s/://gi;
$tmp=~s/([0-9]{2})([0-9]{2})([0-9]{2})/$1*3600+$2*60+$3/e;

the output is 2680.

Any way to combine this two lines into a single line?

Thanks

KevinADC · #2 (**permalink**) 06-14-2009

Code:

$tmp=~s/([0-9]{2}):([0-9]{2}):([0-9]{2})/$1*3600+$2*60+$3/e;

jimmy_y · #3 (**permalink**) 06-14-2009

Quote:

Originally Posted by KevinADC

Code:

$tmp=~s/([0-9]{2}):([0-9]{2}):([0-9]{2})/$1*3600+$2*60+$3/e;

Thanks

-----Post Update-----

Thanks Kevin

summer_cherry · #4 (**permalink**) 06-14-2009

Code:

my $str='00:44:40';
$str=~s/([0-9]{2}):([0-9]{2}):([0-9]{2})/$1*3600+$2*60+$3/e;
print $str;

KevinADC · #5 (**permalink**) 06-14-2009

Quote:

Originally Posted by summer_cherry

Code:

my $str='00:44:40';
$str=~s/([0-9]{2}):([0-9]{2}):([0-9]{2})/$1*3600+$2*60+$3/e;
print $str;

Gee, thats original.

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Read Single Value From File With Perl	Donkey25	Shell Programming and Scripting	1	04-01-2009 01:02 PM
[Perl] Accessing array elements within a sed command in Perl script	userix	Shell Programming and Scripting	2	10-03-2008 12:05 PM
Perl - combine two xml files	nmadpl	Shell Programming and Scripting	2	11-16-2006 12:12 PM
sed or grep or perl combine two lines	artjaniger	UNIX for Dummies Questions & Answers	3	06-27-2003 05:20 PM
combine 2 lines (command & echo)	primal	UNIX for Dummies Questions & Answers	13	10-09-2001 05:51 AM

Bits Awarded / Charged to KevinADC for this Post
Date	User	Comment	Amount
06-14-2009	jimmy_y	TQ	500

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by