当前位置: 技术问答>linux和unix
文字截取问题
来源: 互联网 发布时间:2016-03-28
本文导语: MPlayer 1.0rc2-4.1.2 (C) 2000-2007 MPlayer Team CPU: Intel(R) Core(TM)2 Duo CPU E6550 @ 2.33GHz (Family: 6, Model: 15, Stepping: 11) CPUflags: MMX: 1 MMX2: 1 3DNow: 0 3DNow2: 0 SSE: 1 SSE2: 1 x86 CPU : MMX MMX2 SSE SSE2 Terminal type `unknown'...
MPlayer 1.0rc2-4.1.2 (C) 2000-2007 MPlayer Team CPU: Intel(R) Core(TM)2 Duo CPU E6550 @ 2.33GHz (Family: 6, Model: 15, Stepping: 11) CPUflags: MMX: 1 MMX2: 1 3DNow: 0 3DNow2: 0 SSE: 1 SSE2: 1 x86 CPU : MMX MMX2 SSE SSE2 Terminal type `unknown' is not defined. /usr/local/apache2/htdocs/avis/RMOV0001.avi/RMOV0001.avi AVI ID_VIDEO_ID=0 [aviheader] Video stream found, -vid 0 ID_AUDIO_ID=1 [aviheader] Audio stream found, -aid 1 VIDEO: [MJPG] 320x240 24bpp 30.000 fps 4374.9 kbps (534.0 kbyte/s) Digitization Time: 2008:06:20 16:00:01: ID_CLIP_INFO_NAME0=Digitization Time ID_CLIP_INFO_VALUE0=2008:06:20 16:00:01: Name:
有上边一段话,我想截取 “16:00:01” 这样的字段,然后换算成秒数。
希望用perl上述功能。
有上边一段话,我想截取 “16:00:01” 这样的字段,然后换算成秒数。
希望用perl上述功能。
|
你还需要计算秒数,那么把捕获的$1再拆分就好了。
@var = split /:/, $1;
$result = $var[0]*3600+$var[1]*60+$var[2];
//$result就是你要的结果了。
@var = split /:/, $1;
$result = $var[0]*3600+$var[1]*60+$var[2];
//$result就是你要的结果了。