in reply to Formatted Text

Seeing the code that was working as well as the code that doesn't work would be helpful. As is, it's kind of a guessing game. Do you want the output of "df -k" to go to the screen, or is that what you are trying to nicely format? Do you want the result of the format to go to the screen or to a file? Why do you want it in a subroutine? Is that just to make the main code cleaner or do you need to use it somewhere else as well? If the latter, what is needed in that somewhere else? Output to the screen? The formatted output returned in a variable?

Replies are listed 'Best First'.
Re: Re: Formatted Text
by TekWannaBe (Initiate) on Jan 30, 2004 at 16:39 UTC
    I would like the output of df -k to go to a file (spaceavail) nicely formatted. I need the subroutine, it is apart of my lab...gottah big learning curve. The code thus far puts nothing in the file, I did have it adding the formated box but no text from df -k output. Now that I wrote over what I did earlier I am not sure if I could get it to do the same again. Thanks for all your help.
[reply]
      Then what you have should be ok; except that you want to read the output of df -k, not DISKSPACE. Do this like: 
      open my $dfout, "df -k|" or die "couldn't start df -k: $!";
open DISKSPACE as you do
while (<$dfout>) {
  ...
}
close $dfout or die "df failed: $! $?";

      [download]
      or use the suggestion of capturing and splitting up the output with `df -k`.
[reply]
[d/l]
[select]
        This is the current code and the error returned when ran. 
        format DISKSPACE =
($Filesystem,$kbytes, $used, $avail, $capacity, $Mounted_on) = split (
+/ /);

======================
|@<<<<<<<<<<<<<<<<<<<|
$Filesystem
|@<<<<<<<<<<<<<<<<<<<|
$kbytes
|@<<<<<<<<<<<<<<<<<<<|
$used
|@<<<<<<<<<<<<<<<<<<<|
$avail
|@<<<<<<<<<<<<<<<<<<<|
$capacity
|@<<<<<<<<<<<<<<<<<<<|
$Mounted_on
======================
.


sub df_total {

#    if ($answer eq "F") {
#    write ($answer);

open (DISKSPACE, "< spaceavail.txt") || die "Error opening file spacea
+vail.txt";

open (DISKSPACE, "> spaceavail.txt") || die "Error opening file spacea
+vail.txt";
while (<DISKSPACE>) {
  chop;
  ($Filesystem, $kbytes, $used, $avail, $capacity, $Mounted_on) = spli
+t (/ /);
  write (DISKSPACE);
close (DISKSPACE)
}
}

print "\n  My First Perl Menu\n";
print "A.  Current Date & Time\n";
print "B.  Users currently logged in\n";
print "C.  Name of working directory\n";
print "D.  Contents of the working directory\n";
print "E.  Names & Login names of user currently logged on to aries\n"
+;
print "F.  Aries Disk Space Utilization\n";

print "Enter A, B, C, D, E, F: \n";

$answer = <STDIN>;
chomp ($answer);

if ($answer eq "A") {
      system "date \n";
}
elsif
    ($answer eq "B") {
      system "who \n";
}
elsif
   ($answer eq "C") {
     system "pwd \n";

}

elsif
   ($answer eq "D") {
     system "ls -Fla \n";
}

elsif
   ($answer eq "E") {
     system "finger \n";
}

elsif
   ($answer eq "F") {
     system "df -k \n";
     &df_total
}

else {
   print "The selection you entered: $answer, is incorrect. Please ent
+er A, B, C
 or D \n";
}




$ ./testmenu.pl

  My First Perl Menu
A.  Current Date & Time
B.  Users currently logged in
C.  Name of working directory
D.  Contents of the working directory
E.  Names & Login names of user currently logged on to aries
F.  Aries Disk Space Utilization
Enter A, B, C, D, E, F:
F
Filesystem            kbytes    used   avail capacity  Mounted on
/dev/dsk/c1t0d0s0    2016343 1392038  563815    72%    /
/proc                      0       0       0     0%    /proc
mnttab                     0       0       0     0%    /etc/mnttab
fd                         0       0       0     0%    /dev/fd
swap                 3888816      40 3888776     1%    /var/run
swap                 3888848      72 3888776     1%    /tmp
/dev/dsk/c1t0d0s7    32442879  523718 31594733     2%    /export/home
Filehandle DISKSPACE opened only for output at ./testmenu.pl line 46.

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom