perl get partial string of a string

jimmy_y · #1 (**permalink**) 08-25-2009

Hi All,

I have:

Code:

$d = "12.02222222222";
$d =~ s/(.*).(.*)/$1/e;

The output should be just 12.
Please guide me my expression wrong.

Thanks

durden_tyler · #2 (**permalink**) 08-25-2009

Code:

$ 
$ perl -le '$d = "12.02222222222"; $output=sprintf("%d",$d); print $output'
12
$

tyler_durden

agn · #3 (**permalink**) 08-25-2009

Change

Code:

$d =~ s/(.*).(.*)/$1/e;

to

Code:

$d =~ s/(.*)\.(.*)/$1/e;

jimmy_y · #4 (**permalink**) 08-25-2009

Thanks tyler, tyler. It works

If i have a string
$val=14480 # This is seconds.

How would i make it into 040102, hhmmss, how should i use regular express to do

.

Thanks

pludi · #5 (**permalink**) 08-25-2009

Regex can do a lot, but not that (and never were intended to [unless someone wants to prove me wrong])

Code:

perl -e '$val=14480; $hms=sprintf("%02d%02d%02d",int($val/3600),int($val%3600/60),int($val%60)); print $hms,"\n";'
040120

jimmy_y · #6 (**permalink**) 08-25-2009

Quote:

Originally Posted by pludi

Regex can do a lot, but not that (and never were intended to [unless someone wants to prove me wrong])

Code:

perl -e '$val=14480; $hms=sprintf("%02d%02d%02d",int($val/3600),int($val%3600/60),int($val%60)); print $hms,"\n";'
040120

Thanks

works.

---------- Post updated at 02:11 AM ---------- Previous update was at 02:08 AM ----------

Below is the finally code, hope this is the most simple method.
i have two date, i want to get the duration in to hhmmss format. Below is the working code.

Code:

$a = localtime(UnixDate(ParseDate("20090823 08:03:35"),"%s"));
$b = localtime(UnixDate(ParseDate("20090823 12:04:55"),"%s"));
$c = str2time($b)-str2time($a);
$hms=sprintf("%02d%02d%02d",int($c/3600),int($c%3600/60),int($c%60));
print $hms;

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
get partial numbers from a string	jimmy_y	Shell Programming and Scripting	1	08-24-2009 05:35 PM
[Perl] Find one string, change another string.	ejdv	Shell Programming and Scripting	5	06-10-2009 03:44 AM
delete line from file if successful partial string found	cronjob78	UNIX for Advanced & Expert Users	7	05-14-2009 02:35 AM
Perl: Better way to match string within a string	Juha	Shell Programming and Scripting	3	01-11-2009 10:09 PM
PerL Reverse the string.	email-lalit	Shell Programming and Scripting	3	07-18-2008 07:22 PM

Bits Awarded / Charged to durden_tyler for this Post
Date	User	Comment	Amount
08-25-2009	jimmy_y	N/A	200

Bits Awarded / Charged to agn for this Post
Date	User	Comment	Amount
08-25-2009	jimmy_y	N/A	200

Bits Awarded / Charged to pludi for this Post
Date	User	Comment	Amount
08-25-2009	jimmy_y	N/A	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