shell版的一题，用perl如何实现？

kernel69

http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=4093501  目前自己在写遇到一些困难，看大家有没有好的思路和方法

墨迹哥

先把你自己写的放出来。不然没法帮你改啊！

rubyish

这问题我纠结了一下午，一直在纠结 ,结果还是没搞出来

kernel69

明天给你个残次品，现在公司^_^
回复 2# 墨迹哥


   

kernel69

大牛，加油
回复 3# rubyish


   

只是一个红薯

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. use Mojo::UserAgent;
   
7. use Tie::File;
   
8. my @arr;
   
9. my @a1=qw(A_ag_run1 A_ag_run2 A_ag_run3 A_ag_run4 A_ag_run5 A_ag_run6);
   
10. my @a2=qw(A_al_run1 A_al_run2 A_al_run3 A_al_run4 A_al_run5 A_al_run6);
    
11. my @a3=qw(A_an_run1 A_an_run2 A_an_run3 A_an_run4 A_an_run5 A_an_run6);
    
12. tie @arr, 'Tie::File', 'A.txt' or die;
    
13. my $tmp=0;
    
14. for(my $i=9;$i<=180;$i+=10){
    
15.    if($i>=9 && $i<=59){
    
16.     state $count=0;
    
17.     my @a=@arr[$tmp..$i];  
    
18.     open OUT,'>',"$a1[$count++].txt";
    
19.     say OUT  $_ for @a;
    
20.    
    
21.    }elsif($i>=69 && $i<=119){
    
22.     state $count=0;
    
23.     my @a=@arr[$tmp..$i];
    
24.     open OUT,'>',"$a2[$count++].txt";
    
25.     say OUT  $_ for @a;
    
26.    
    
27.    }elsif($i>=129 && $i<=179){
    
28.     state $count=0;
    
29.     my @a=@arr[$tmp..$i];
    
30.     open OUT,'>',"$a3[$count++].txt";
    
31.     say OUT  $_ for @a;
    
32.    
    
33.    }
    
34.     $tmp=$i+1;
    
35. }
    
36. close OUT;

复制代码

试试tie：：file

stanley_tam

偶试试:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. # split A.txt
   
6. 
   
7. sub main;
   
8. sub read_10_lines;
   
9. sub write_lines;
   
10. sub get_fh;
    
11. 
    
12. main();
    
13. 
    
14. sub main {
    
15.     my $file = 'A.txt';
    
16.     my $fh = get_fh($file, '<');
    
17. 
    
18.     for my $char ('g', 'l', 'n'){
    
19.         for my $n (1 .. 6){
    
20.             write_lines( "A_a${char}_run$n", read_10_lines($fh) )
    
21.         }
    
22.     }
    
23.     print "Done\n";
    
24. }
    
25. 
    
26. sub read_10_lines {
    
27.     my ($fh) = @_;
    
28.     my @lines = ();
    
29.     my $counter = 1;
    
30.     while (my $line = <$fh>) {
    
31.         push @lines, $line;
    
32.         last if $counter == 10;
    
33.         $counter++;
    
34.     }
    
35.     return \@lines;
    
36. }
    
37. 
    
38. sub write_lines {
    
39.     my ($file, $lines_aref) = @_;
    
40.     my $fh = get_fh($file, '>');
    
41.     for my $line ( @{$lines_aref} ){
    
42.         print {$fh} $line or
    
43.             die "Write to $file failed: $!\n";
    
44.     }
    
45.     close $fh;
    
46. }
    
47. 
    
48. sub get_fh {
    
49.     my ($file, $mode) = @_;
    
50.     open my $fh, $mode, $file or
    
51.         die "Could not open file $file:$!\n";
    
52.     return $fh;
    
53. }
    
54. __END__

复制代码

回复 1# kernel69


   

rubyish

这问题我纠结了

rubyish

:

1. #!/usr/bin/perl
   
2. my $h = [qw/A_ag_run A_al_run A_an_run/];
   
3. my $t = [ 1 .. 6 ];
   
4. my @d = <>;
   
5. map { open my $f, '>', $_; print $f splice @d, 0, 10 }
   
6.     glob '{'.join( '}{', map join( ',', @$_ ), $h, $t ).'}';

复制代码

1. perl abc.pl data

复制代码

rubyish

:

1. #!/usr/bin/perl
   
2. my @h = qw/A_ag_run A_al_run A_an_run/;
   
3. my $f;
   
4. while (<>) {
   
5.     $. % 10 - 1 or open $f, '>', $h[ ( $. / 60 ) % 18 ] . ( ( $. / 10 ) % 6 + 1 );
   
6.     print $f $_;
   
7. }

复制代码