Use strict :-(

[DADAJ Marián]

Skus sa pozriet na toto riesenie prepinacov.
	while ($argv = shift @ARGV ){
		if ($argv =~ /-D(\w+)=(\w+)/){
			$var_name = $1;$value = $2;
			$$var_name = $value;
		}
	}

Z tvojho riesenia mi nieje jasne, ako chces pouzit odkazy.

> S pozdravom
> Ing. Marian Dadaj

-----Original Message-----
From: Jindrich Kubec [mailto:kubecj na asw.cz]
Sent: Thursday, June 22, 2000 1:01 PM
To: Multiple recipients of list PERL
Subject: Use strict :-(


Hello!

Natahuju si prepinace takhle (v subrutine):
chomp $line;
my ( $var, $val ) = split( /=/, $line );

$$var = $val;

Na poslednim radku to zarve:
Can't use string ("src_path") as a SCALAR ref while "strict refs" in use

Na zacatku scriptu je:
use strict;
my $src_path = "";

Jak to udelat, aby to nervalo (krome vyhodit use strict :-) ?

Hm, a ted jsem zjistil, ze to i bez toho use strict nefunguje, pokud mam
v hlavnim programu ty promenne jako 'my'. Jsem z toho volaky zmäteny.
-- 
Jindroush <kubecj na asw.cz>
See http://www.asw.cz/~kubecj for Atari 8bit utils!