- 论坛徽章:
- 0
|
发这个帖子不是为了引起啥...砖头尽管来.....只是想解开心里的疑问
最近一直在看perl 不是想用它去开发什么程序..只是心里觉得作为一个SA perl是必要的- -
然后...看完了小骆驼....突然发现....很多东西shell+awk+sed都可以做..基本所有日常应用..为啥要用perl....
....昨天一直在研究一个程序
就是简单的ps aux|awk '{print $2,$3,$4}';这样...想用perl来写...
怎么写呢....
#!/usr/bin/perl
use strict;
open(PS,"ps aux|") or die $!;
while (my $line = <PS>) {
my @st = split(" ", $line);
print "@st[0,1,2]\n";
}
想了半天
然后顿时发现....这好复杂.....
然后今天在看DBD:mysql的链接....
想输出一个表的所有
比如一个shell命令
/usr/local/bin/mysql -uxxxx -pxxxx -e "select * from mysql.user"
这样....
然后用perl做.....
#!/usr/bin/perl
use DBI;
$db="mysql";
$host="localhost";
$user="xxxx";
$password="xxxxxxx";
$dbh = DBI->connect("DBI:mysql:database=$db;host=$host",
$user, $password,
{'RaiseError' => 1});
my $sth = $dbh->prepare("select * from user");
$sth->execute();
my $row = $sth->fetchrow_hashref();
print $row;
因为还没看完dbd 这个$row是一个hash- -........还没输出呢....
所以我顿时有点沮丧.....
现在在想...perl写cgi网页可以简单操作 可以跨平台 可以xxx....
但是日常的包括比较重要的都可以用shell解决..为啥要用perl perl不是为了解决shell不足产生的吗......
链接数据库需要这么多步骤..为啥不用一个客户端直接连着输出结果呢.....
可能我的程序写得差...没有大牛的一想就出来的感觉......是不是这个原因....
也可能是shell写惯了...想很多东西都是shell的方式..之类的?
刚在看perl for system administrator
里面一个find解决的问题....perl要写额函数 然后再用程序调用函数..为啥不直接用find加xargs解决..
真的没别的意思..不要评价孰优孰劣..肯定是自己水平未到..只是这个疑问希望过来人帮忙解一下..... |
|