xunileida的专栏

use threads; use DBI(); # input: # $_[0]: fruitname sub fetchFruit { # Connect to the database. my $dbh = DBI->connect("DBI:mysql:database=FruitDB;host=localhost",

#!/usr/bin/perl use strict; use warnings; open (IN,"testdata.dat") or die; open (OUT,">>./someRN.txt") or die; my $i=1; while () { chomp; if ($i>=2&&$i<=4) { #..1000.2000........LZ........... pri

#!/usr/bin/perl use strict; use warnings; my @array; open(my $fh, "<", "file3") or die "Failed to open file: $!\n"; while() { chomp; push @array, $_; } close $fh; foreach my $line(@array)

#!/usr/bin/perl use strict; use warnings; my @array; open(my $fh, "<", "file3") or die "Failed to open file: $!\n"; while() { chomp; push @array, $_; } close $fh; foreach my $line(@array)