[ create a new paste ] login | about

Link: http://codepad.org/xP9cl4mF    [ raw code | fork ]

Perl, pasted on Feb 20:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
open(SF, $o_statusfile);

    my %delete_params;
    local $/ = "\n\n";
    while (<SF>)
    {
        if (/^servicestatus/)
        {
		if (/service_description = (.*)/) {
			print("$1\n");
		}
        }
    }   

close SF;


Output:
No errors or program output.


Create a new paste based on this one


Comments: