Use of uninitialized value at ./loadavg.log.pl line 9.

[Hans Schou <sslug@sslug>]

jeg gætter på at der mangler et enkelt tegn.
Skulle <> ikke skubbe indholdet op på stakken således at
det regulære udtryk ikke fejler?

#! /usr/bin/perl -w

open(IN,"</proc/loadavg") || die;
$a = <IN>;
close IN;
print $a;

# 0.23 0.01 0.00 1/56 801 ... herunder går det galt
$a = ~/^\s*(\d+.\d+).\s+.*\s+(\d+)\//;

open(OUT,"|sqlplus scott/tiger>/dev/null") || die;
print OUT "INSERT INTO loadavg(load5m,tasks) values($1,$2);\nquit;\n";
close OUT; 

-- 
best regards
+---------------------------------------------------+
! Hans Schou,    Hamletsgade 4-201,   DK-2200 Kbh N !
! Telex: SCHOU.DK            Phone: +45 35 86 12 66 !
! mailto:sslug@sslug         http://www.schou.dk !
+---------------------------------------------------+
 Food for Echelon: Anarchist's Distributed Calendar
    nuclear bomb and potatoes and NSA for sale