[Perl] scriptje voor het opvragen van commando!

[active2]

Ik wil een scriptje maken voor mijn linux bak! Maar ik loop vast op dit probleem:

code:

$REGELS=`wc --lines alert | awk '{print $1}'`;
print $REGELS, "\n";

De uitvoer van wc --lines alert is telkens:

4 /var/log/alert

Nou staat er om dat hele geval die speciale quotjes omheen maar hij doet het nog steeds niet! Wat doe ik verkeerd?

[kenneth]

Bij mij werkt het

Beter lezen mithalph

Zo dan?

code:

#!/usr/local/bin/perl
$REGELS=`wc --lines < alert`;
print $REGELS, "\n";
[kenneth@tirion:~/tmp] ./x
    2

[active2]

Ja da's de oplossing. Nou kan ik verder