请教：提取字符串的问题

afeiguo

UID: 41187
帖子: 3
积分: 6
在线时间: 10 分钟

1^# afeiguo 发表于 2008-06-18 16:45

请教：提取字符串的问题

我想把"cat /proc/version"命令中的有效字符提取出来,比如：
在ubuntu上，
$ cat /proc/version
$ Linux version 2.6.24-16-generic (buildd@palmer) (gcc version 4.2.3 (Ubuntu 4.2.3-2ubuntu7)) #1 SMP Thu Apr 10 13:23:42 UTC 2008
我想提取的是：
$kernel_version = "Linux version 2.6.24-16-generic"
$gcc_version = "gcc version 4.2.3"
$pub_version = "Ubuntu 4.2.3-2ubuntu7"

如何做到这一点？并且希望这个程序在任何linux版本上都应该通用。谢谢！

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

2^# ulmer 发表于 2008-06-18 17:40

Using regexp!
Sample code:

QUOTE:

use strict;
open F, '/proc/version' or die $!;
my $line = <F>;
close F;
#print $line;
# read it as 3 parts
if ($line =~ m/^linux (.+)\s$gcc (.+)$\s\#(.+)$/i) {
my ($ver, $gcc, $ts) = ($1, $2, $3);
print "Linux : ", $ver, "\n";
print "gcc : ", $gcc, "\n";
print "Timestamp : ", $ts, "\n";
}
# to process more details is your task

afeiguo

UID: 41187
帖子: 3
积分: 6
在线时间: 10 分钟

3^# afeiguo 发表于 2008-06-18 18:06

这是我自己写的，看上去有些丑陋

#! /usr/bin/perl

use strict;
use warnings;

sub check_linux_ver
{

my $info = `cat /proc/version`;
my $ver = '';
my $gcc = '';
my $pub = '';

if ($info  =~ /^(\S+) (\S+) (\S+)/) {
      $ver = "$1 $2 $3";
}

if ($info =~ /gcc (\S+) (\S+)(.*)$(.*)$\)/) {
   $gcc = "gcc $1 $2";
   $pub = "$4";
}

print "$ver\n";
print "$gcc\n";
print "$pub\n";
}

&check_linux_ver;

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-06-19 09:43

my ($ver, $tmp1, $tmp2, $gcc, $pub) = (/[^)(]+/g)