Appending a character to a field



Hi,


I'm a perl newbie and would like to ask this question here.

Let's say I have the following code. Trying to check the disk space,
it's to truncate the percent sign % from the df -k output, compare the
percentage field to see if it's bigger than 90%, and grasp only those
lines that are and push those to an array @df. But how can I add the
percentage sign back to the percentage field on each line for the
proper output? I put down ??????? as below to find out what regexp
needs to be there in the below.


$percent=90;

open(DFOUT, "/usr/bin/df -k|");
while (<DFOUT>) {
next if ($_ =~ /Filesystem/i);
s/\%//; # to remove the percent sign for
comparison
if ( (split)[4] >= $percent ) {
???????
push(@df, $_);
}
}


print "@dfoutput\n";

I appreciate your help very much!

Thank you.


- Bok

.

Relevant Pages

  • Appending a character to a field
    ... I'm a perl newbie and would like to ask this question. ... Trying to check the disk space, ... it's to truncate the percent sign % from the df -k output, ...
    (comp.lang.perl.misc)
  • Re: Appending a character to a field
    ... I'm a perl newbie and would like to ask this question. ... Trying to check the disk space, ... it's to truncate the percent sign % from the df -k output, compare the ...
    (comp.lang.perl.misc)
  • Re: low-value
    ... >> Don't make code with 2 digit years, especially if you are going to ... >> compare dates. ... Memory and disk space are cheap, ...
    (comp.lang.cobol)
  • Re: Appending a character to a field
    ... use strict; ... close DFOUT; ... it's to truncate the percent sign % from the df -k output, compare the ...
    (perl.beginners)