Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Utility to calculate best way to archive Dir to DVD

by jwkrahn (Monsignor)
on Aug 03, 2013 at 11:44 UTC ( #1047698=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub nl () { print "\n"; print "\n" }
    
  2. or download this
    sub nl () { print "\n\n" }
    
  3. or download this
    if ($units !~ m{(K|M)B}i ) {
    
  4. or download this
    if ($units !~ /[KM]B/i ) {
    
  5. or download this
    my @num = qx[du -B $units -d 1 $in_dir | cut -f 1];
    my @dir = qx[du -B $units -d 1 $in_dir | cut -f 2];
    
  6. or download this
    if ($skip =~ m{,}) {
            @sks = split(',', "$skip");
    ...
            if ($dir[$i] =~ m{$skip}) {
                $num[$i] = 0 }}}
    else { print "$skip is not a directory. Please ensure $skip is a dir i
    +nside $in_dir." }
    
  7. or download this
    my @sks = split /,/, $skip;
    for my $i ( 0 .. $#num ) {
    ...
                }
            }
        }
    
  8. or download this
    for (my $i = 0; $i < $in; $i++ ) {
        my $temp = $num[$i];
    ...
        $temp =~ s{ $}{}g;
        chomp $temp;
        push @dig, $temp }
    
  9. or download this
    $units =~ s/KB/kB/g;
    for my $i ( @num ) {
    ...
        chomp $temp;
        push @dig, $temp;
        }
    
  10. or download this
            $sum = $sum + $dig[$i];
    
  11. or download this
            $sum += $dig[ $i ];
    
  12. or download this
    if ($skip !~ "" && $skip !~ m{,}) {
    
  13. or download this
    The empty pattern //
            If the PATTERN evaluates to the empty string, the
    ...
            match has previously succeeded, this will
            (silently) act instead as a genuine empty pattern
            (which will always match).
    
  14. or download this
    if ( length $skip && $skip !~ /,/ ) {
    
  15. or download this
    elsif ($si > 0) {
    
  16. or download this
    elsif ( @sks ) {
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1047698]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2014-08-23 08:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls