论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 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

家境小康

论坛徽章:: 0

2楼 [报告]

发表于 2008-06-18 17:40 |只看该作者

回复 #1 afeiguo 的帖子

Using regexp!
Sample code:

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

afeiguo

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2008-06-18 18:06 |只看该作者

回复 #2 ulmer 的帖子

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

#! /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;