Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
#!/usr/bin/perl -w
use strict;
use diagnostics;
open STREAM, "/nas/bin/nas_fs -list |" or die "Failed to create nas_fs pipeline";
while(<STREAM>) {
chomp;
next unless /(?:root|name)/;
my @fields = split;
# Do something with $fields[5] here (should be same as $6 in awk)
print $fields[5], "\n";
}
close STREAM;
#!/usr/bin/perl -w
use strict;
use diagnostics;
open STREAM, "/nas/bin/nas_fs -list |" or die "Failed to create nas_fs pipeline";
my $date = `/bin/date`;
chomp $date;
$date =~ s/[\s:]/_/g;
open OUTFILE, ">/tmp/fs_list_$date" or die "Failed to create log file";
while(<STREAM>) {
chomp;
next unless /(?:root|name)/;
my @fields = split;
print OUTFILE $fields[5], "\n"; # Record for log file
# Do something with $fields[5] here (should be same as $6 in awk)
}
close STREAM;
next if /^\s*$/;