Posted By: networ (Packet Mangler) on 'CZscripts'
Title:     Perl problem
Date:      Thu Apr 25 02:06:37 2002

Ahoj,
zacinam s Perlem a hned jsem narazil na problem. Mohl by mne nekdo prosim 
objasnit, proc toto funguje

if ( $line =~ /s*^LocalNetworks*(.+)/ )

ale toto ne?

$item = 'LocalNetwork';
$regexp = '/s*^'.$item.'s*(.+)/';
if ( $line =~ $regexp )


kde $line je
LocalNetwork   10.0.0.2/24

 Diky
  ntw