use Perl

• where's the rest of the code? (Score:1)

  by cog (4665)

  I'm curious about the rest of the code. What happened to @sizes before that? Where can I see that?
  • Re:where's the rest of the code? (Score:1)

    by xenchu (4746)

    Certainly. This was written by Abigail-II in answer the question Finding Top 10 Largest Files on PerlMonks. Since Abigail-II wrote it I have no doubt as to the correctness of the program:

    #!/usr/bin/perl
    
    use strict;
    use warnings;
    no warnings qw /syntax/;
    
    open my $fh => "find / -type f |" or die;
    
    my @sizes = map {[-1 => ""]} 1 .. 10;
    
    while (<$fh>) {
        chomp;
        my $size = -s;
        next if $size < $sizes [-1] [0];
        foreach my $i (0 .. $#sizes) {
     
    • Re:where's the rest of the code? (Score:3, Informative)

      by bart (450) <bart.lateur@pandora.be> on 2004.02.04 9:24 (#28037) Journal

      The idea is to remove the empty entries, in case there are fewer than 10 real entries.

      Reply to This

      Parent