perl 常用函数-3

努力小伙 发表于 2011-12-22 08:54

1、将一个文件的内容赋给一个标量 <div id="codeText" class="codeText"><ol style="margin:0 1px 0 0;padding:5px 0;" start="1" class="dp-css"><li>#数组的每个元素对应文件的一行 </li><li>
 </li><li>
my @file_content = <FILE>; </li><li>
 </li><li>
#第二种方式，使用File::Slurp </li><li>my $filename = 'access_log'; 
</li><li>use File::Slurp; </li><li>
my @file_content = read_file($filename);</li></ol></div>2、进程文件句柄 接受进程输出 <div id="codeText" class="codeText"><ol style="margin:0 1px 0 0;padding:5px 0;" start="1" class="dp-css"><li>#接受进程输出</li><li> </li><li>#!/usr/bin/perl -w </li><li>
use strict; </li><li>
use File::Slurp; </li><li>
 </li><li>
my $ls = 'ls -l'; </li><li>
 </li><li>
#通过管道将进程的输出给句柄 </li><li>
open PH,"$ls |" or die "$!\n"; </li><li>
 </li><li>
my @dir_contents = <PH>; </li><li>
close PH or die "$!"; </li><li>
 </li><li>
#print $dir_contents[0]; </li><li>
print "$_" for @dir_contents; </li><li>
close ($ls);</li></ol></div>向进程句柄输入 <div id="codeText" class="codeText"><ol style="margin:0 1px 0 0;padding:5px 0;" start="1" class="dp-css"><li>#!/usr/bin/perl -w </li><li>
use strict; </li><li>
use File::Slurp; </li><li>
 </li><li>
my $log = 'mysql.out'; </li><li>
open(*STDERR,">>$log"); </li><li>
open(*STDOUT,">>$log"); </li><li>
 </li><li>
my $mysql = 'mysql -u root -pb7uoodi98on'; </li><li>
open MYSQL,"| $mysql" or die "$!"; </li><li>
 </li><li>
select MYSQL; </li><li>
print 'show databases;'; </li><li>
print 'use mysql;'; </li><li>
print 'show tables;'; </li><li>
close MYSQL or die "$!";</li></ol></div> 3、目录句柄 <div id="codeText" class="codeText"><ol style="margin:0 1px 0 0;padding:5px 0;" start="1" class="dp-css"><li>#!/usr/bin/perl -w </li><li>
use strict; </li><li>
use File::Slurp; </li><li>
 </li><li>
my $homedir = '/root/lab/perl'; </li><li>
my $dh; </li><li>
 </li><li>
opendir( $dh,$homedir ) or die "$!"; </li><li>
 </li><li>
while( my $curfile = readdir($dh) ) {#读取目录内容 </li><li>
 </li><li>
        #telldir给出目录句柄的当前字节位置 </li><li>
        my $pos = telldir $dh; </li><li>
        #判断文件是目录还是常规文件 </li><li>
        my $type = -d "$homedir/$curfile" ? 'directory' : 'file'; </li><li>
        print "$type : $curfile pos $pos\n"; </li><li>
 </li><li>
} </li><li>
 </li><li>
closedir( $dh ); </li><li>
 </li><li>
opendir( $dh,$homedir ) or die "$!"; </li><li>
 </li><li>
#过滤特定后缀 </li><li>
my @perl = grep { /\.pl|\.PL|\.pem?$/i&& -f "$homedir/$_" } </li><li>
readdir( $dh ); </li><li>
closedir( $dh ); </li><li>
 </li><li>
print "perl code file: $_\n" for @perl;</li></ol></div>

页: [1]

Chinaunix's Archiver

perl 常用函数-3