[Melbourne-pm] Writing array data to file with appended information

[Camillo Pereira]

Thanks for the reply.

This is something that I had tried as well, however, the format of the file
ends up looking like the following:

cpploupoi09.my.domain.com.au <http://cpqavggd09.my.domain.com.au/>
    1cabloupoi08.my.domain.com.au
    1cacloupoi07.my.domain.com.au
    1cadloupoi06.my.domain.com.au
    1caeloupoi05.my.domain.com.au
    1cafloupoi06.my.domain.com.au
    1

Thanks for HUP signal part.  I will use the system() function to send the
command.

Any other hints in relation to the previous item?


2009/3/27 Mathew Robertson <mathew.robertson at netratings.com.au>

>  print UPDATE "$_\t1"
>
>
> "ps auxww" will give you a process list, from which you can get the PID, so
> that you can call "kill -HUP <PID>"
>
> Hope this helps,
> Mathew Robertson
>
> Camillo Pereira wrote:
>
> Hi,
>
> I have the following scenario where I need to extract node name information
> based on certain conditions from an application, and write the data out to a
> file and HUP the process concerned.  I have managed to get to a certain
> point however need some advise.
>
> Script output:
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> ## Cut down version of regex list
>
> my @critical_device_def = (
>     [AAA    => qr{...apb09}    ],
>     [BBB    => qr{...avggd09}    ],
>     [CCC => qr{...uytwop09}    ],
>     [DDD => qr{...loupoi09}   ]
>
> );
>
> my @DEVICE_LIST;
> my $file = "rules.txt";
> my @tokens;
>
> open(UPDATE, ">$file") || die "Can't open new file: $!\n";
>
> @DEVICE_LIST=`/opt/OV/bin/ovtopodump | awk '\$3 ~
> /^[a-z]+.*\.my\.domain\.com\.au/{print \$3}'| uniq`;
>
> foreach (@DEVICE_LIST)
>   {
>     for my $t (@critical_device_def)
>     {
>       my ($site, $device, $flag) = @$t;
>       if ($_ =~ m/\G($device)/gc)
>       {
>
>         print UPDATE "$_" ;
>         next;
>       }
>
>     }
>
>   }
>
> =====
>
> The problem I am having is that at the print UPDATE line, I need to append
> to the data a tab and the number 1.  With the current code, the file output
> looks like this:
>
> cpploupoi09.my.domain.com.au
> cpqavggd09.my.domain.com.au
>
> however, I need the contents to be printed to the file in the format below
> where the hostname then a tab and the number one is printed:
>
> cpploupoi09.my.domain.com.au <tab_space> 1
> cpqavggd09.my.domain.com.au <tab_space> 1
>
> What is the best way to do this?
>
> Also what is the best way to send a HUP signal to a running Unix process?
>
> Appreciate your help.
>
> ------------------------------
>
> _______________________________________________
> Melbourne-pm mailing listMelbourne-pm at pm.orghttp://mail.pm.org/mailman/listinfo/melbourne-pm
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20090327/630a77f5/attachment.html>