ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 24 Jun 2002 22:13:25
To : Konstantin Tokar
Subject : Re: Странности с переменным и
--------------------------------------------------------------------------------
Konstantin Tokar wrote:
> Andrey Sapozhnikov wrote:
> > Konstantin Tokar wrote:
> >
> >> объявить как use vars qw($var);
> >
> >
> > И зачем это нужно в данном случае, не объяснишь? :)
> >
> В каком данном? Приведи свой вариант решения поставленной проблемы.
>
================= [test.pl] =======================
#!/usr/bin/perl -w
use strict;
use StTest;
print "Before f1\n";
StTest::f1();
print "Before f2\n";
StTest::f2();
=================== [StTest.pm] =======================
package StTest;
use strict;
my $var;
sub f2 {
print "var = $var\n";
}
sub f1 {
$var = "value";
print "var = $var\n";
}
1;
========================================================
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
