如何shell取字符串

todayhero

cat 1.txt

[ <a   class="warn" href="sudokus.cn_98/www.sudokus.cn_98.html#Disk">Disk</a> <a   href="sudokus.cn_98/www.sudokus.cn_98.html#Network">Network</a> <a   href="sudokus.cn_98/www.sudokus.cn_98.html#Other">Other</a> <a   class="warn" href="sudokus.cn_98/www.sudokus.cn_98.html#Processes">Processes</a> <a   href="sudokus.cn_98/www.sudokus.cn_98.html#Sendmail">Sendmail</a> <a   href="sudokus.cn_98/www.sudokus.cn_98.html#System">System</a> ]</li>


此文件为一行.其中红色的二段,如果有class="warn"字样.就显示后面的第一个锚点,如Disk和Processes


php实现的方法如何.寻找与之类似的SHELL写法

[root@u munin]# cat 1.php     
<?php
        $html=file_get_contents("1.txt");
        preg_match_all("/warn[^>]+#(\w+)\">/",$html,$out);
        //<a   href="sudokus.cn_98/www.sudokus.cn_98.html#Other">
        print_r($out);
?>
You have new mail in /var/spool/mail/root
[root@u munin]# php 1.php
Array
(
    [0] => Array
        (
            [0] => warn" href="sudokus.cn_98/www.sudokus.cn_98.html#Disk">
            [1] => warn" href="sudokus.cn_98/www.sudokus.cn_98.html#Processes">
        )

    [1] => Array
        (
            [0] => Disk
            [1] => Processes
        )

)

ly5066113

用perl吧，方便。

perl -lne 'print $1 while(m/(?:warn[^>]+#)(\w+)/g)' 1.txt

ly5066113

awk -F '["#]' '{for(i=1;i<=NF;i++) if($i=="warn") print $(i+3)}' 1.txt

todayhero

thanks

定义二个分隔符,然后再for循环,遇到warn就输入第一个锚点.

todayhero

由于平时使用php,就不乐意再搞个perl了,从这个例子看.perl是方便

Ray001

perl牛的1B，哥要开始学perl了

haimming

请教，能用sed做吗？

ly5066113

sed -r 's/warn/\n/g;s/[^\n]*\n[^>]+#(\w+)/\1\n/g;s/\n[^\n]*$//' 1.txt

haimming

谢谢，深深地学习了一把～