[perl]: file -- read_file.pl

[perl]:  file -- read_file.pl

 

 

 

 

一、代码

#!/usr/bin/env perl


# file_name: read_file.pl


sub read_file
{
        open(DATA, "$_[0]") or die "[ db.pl ]: that file dose not exist, $!" ;


        $i = 0 ;
        while (<DATA>)
        {
                print "[". ++$i . "] " . $_ ;
        }
        $i = 0 ;
}


read_file("<db.pl");

 

 

二、运行结果

[wit@fedora perl]$ ./read_file.pl 
[1] #!/usr/bin/perl -w
[2] 
[3] 
[4] # file_name:  db.pl
[5]  
[6] 
[7] use strict;
[8] use DBI;
[9] 
[10] sub database
[11] { 
[12]    my $host = "10.10.10.30";
[13]    my $driver = "MariaDB";           
[14]    my $db = "dbtest";
[15]    my $dsn = "DBI:$driver:database=$db:$host";  
[16]    my $user = "admin";
[17]    my $passwd = "211224ln";
[18] 
[19]     
[20]    # connect to db
[21]    my $dbh = DBI->connect($dsn, $user, $passwd ) or die $DBI::errstr;
[22]    my $sth = $dbh->prepare("SELECT * FROM test"); 
[23]    $sth->execute();    # sql
[24]     
[25]     
[26]    # get data
[27]    while ( my @row = $sth->fetchrow_array() )
[28]    {
[29]           print join("\t", @row)."\n";
[30]    }
[31] 
[32]     
[33]    $sth->finish();
[34]    $dbh->disconnect();
[35] }
[36] 
[37] 
[38] # run part
[39] database();
[40] 
[41] 
[wit@fedora perl]$ 
[wit@fedora perl]$ 

 

 

三、参考文档

 

　　1、　　Perl 文件操作　　--　　https://www.runoob.com/perl/perl-files.html