Alternatively, if you do not want to pass the data from your file (via pipe or redirection), then you'll have to open the file explicitly in your script.
Assuming the file "data.txt" is in the same directory as "procheck", you'd have this -
Code:
$
$ cat procheck
#!/usr/bin/perl
my %hash;
local $/="RUNNING";
open(INPUT, "data.txt") or die "Can't open data.txt: $!"; # open the file for reading
while(<INPUT>) { # loop through the records
if(/ceName: ([^ \n]*).*processName: ([^ \n]*).*Status: ([^ \n]*)/ms){
$hash{$2}->{$1}=$3;
}
}
print "processName Status Node-1 Status Node-2\n";
print "----------- ------------------- -------------------\n";
foreach my $key (keys %hash){
print $key," ";
foreach my $k(keys %{$hash{$key}}){
print $hash{$key}->{$k}," ";
}
print "\n";
}
close(INPUT) or die "Can't close data.txt: $!"; # done; close the file now
$
$ ./procheck
processName Status Node-1 Status Node-2
----------- ------------------- -------------------
tzMgmt PROCESS_NOT_RUNNING PROCESS_RUNNING
XDM PROCESS_NOT_RUNNING PROCESS_RUNNING
$
$
Alternatively, if you do not want to pass the data from your file (via pipe or redirection), then you'll have to open the file explicitly in your script.
Assuming the file "data.txt" is in the same directory as "procheck", you'd have this -
Code:
$
$ cat procheck
#!/usr/bin/perl
my %hash;
local $/="RUNNING";
open(INPUT, "data.txt") or die "Can't open data.txt: $!"; # open the file for reading
while(<INPUT>) { # loop through the records
if(/ceName: ([^ \n]*).*processName: ([^ \n]*).*Status: ([^ \n]*)/ms){
$hash{$2}->{$1}=$3;
}
}
print "processName Status Node-1 Status Node-2\n";
print "----------- ------------------- -------------------\n";
foreach my $key (keys %hash){
print $key," ";
foreach my $k(keys %{$hash{$key}}){
print $hash{$key}->{$k}," ";
}
print "\n";
}
close(INPUT) or die "Can't close data.txt: $!"; # done; close the file now
$
$ ./procheck
processName Status Node-1 Status Node-2
----------- ------------------- -------------------
tzMgmt PROCESS_NOT_RUNNING PROCESS_RUNNING
XDM PROCESS_NOT_RUNNING PROCESS_RUNNING
$
$
HTH,
tyler_durden
Tyler, you made my day! The last method without piping or redirection is what I was looking for.
Hi guys and gals...
MacBook Pro.
OSX 10.13.2, default bash terminal.
I have a flat file 1920 bytes in size of whitespaces only. I need to put every single whitespace character into a bash array cell.
Below are two methods that work, but both are seriously ugly.
The first one requires that I... (7 Replies)
Hi All,
I have two files. File1 and File2.
Want to create another file with all the records of File1 those are not present in File2.
Please guide.
Thanks in advanced.
Anupam (3 Replies)
Trying to do some control flow parsing based on the index postion of an array member. Here is the pseudo code I am trying to write in (preferably in pure bash) where possible. I am thinking regex with do the trick, but need a little help.
pesudo code
if == ENDSINFIVEINTS ]]; then
do... (4 Replies)
Hi ,
I have been trying to write a perl script to do this job. But i am not able to achieve the desired result. Below is my code.
my $current_value=12345;
my @users=("bob","ben","tom","harry");
open DBLIST,"<","/var/tmp/DBinfo";
my @input = <DBLIST>;
foreach (@users)
{
my... (11 Replies)
Hello,
i want to use new line character in cut command
i want to display 3rd line of a file using cut only( not by sed or head -tail command)
can anyone suggest me ?
Regards (12 Replies)
I'm new to forums, it's my first time posting.
I have a sun v490 server. I just installed solaris 10.6, on the local drives. I'm being asked to do the following:
For Oracle install I need “oracle” user that belong to “dba” and “oinstall” groups. File system /u01/app/oracle, 10GB (if... (6 Replies)
Hi,
I wish to store $string1 in $string1array a character in each array element.
Then i wish to echo the entire array to the screen so that it reads as the normal string again.
I have been trying with the code below but does not work. Please help...
To put string into array:
... (5 Replies)
Hi,
I have a ksh script I would like to modify.
What I need it to do is look at an ever changing log file and print the 3rd to last line. Is there a command that will display this? I can not use line numbers because the file is always growing.
Thanks for any help (2 Replies)
08-07-2009
The last method without piping or redirection is what I was looking for.