|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Leonid Nikolaev 2:5020/2222 09 Jun 2000 16:03:52 To : All Subject : package -------------------------------------------------------------------------------- Hаpод, в чем ошибка? Функции вызываются, а пеpеменные не видны:-( === Begin UMB.PM === package Umb; use DBI; use strict; require "nikonor.pl"; use vars qw(@ISA @EXPORT); use Exporter; @ISA=('Exporter'); @EXPORT= qw($UmbVer @UmbWorker &UmbText &UmbRadio &UmbPopUp &UmbTitle &UmbAgent &UmbViddoc &UmbStartForm &UmbEndForm &UmbCli &UmbListNakl &UmbArtcList &UmbNakl %UmbTypeOfPrice); my ($UmbVer) = "0.0.1a"; my (%UmbTypeOfPrice) = (0=>"qqq", 1=>"www"); } 1; === End UMB.PM === WBR, Nikonor. [Team GITANES] [Project Umbrella'98] [Registered Linux User #74015] \і/ --- e-mail: nikonor @ enrgynet . msk . ru. Fido AKA 2:5046/22 * Origin: Hе забyдь покоpмить веpблюда... (2:5020/2222) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/2730394115d3.html, оценка из 5, голосов 10
|