lug-bg: perl script
Poлучавам тази грешка когато се опитам да стартирам скрипта: Can't locate Tk.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i486-linux /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i486-linux /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) Не съм много на ясно на с perl...и ще съм ви много благодарен за всякаква помощ. На slack 9.1 съм. - АВТОРСКИ картички от Mail.bg Календар на ВСИЧКИ празници http://mail.bg/greetings/ A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: Perl script
On Tuesday 24 May 2005 02:31, Svetulcho wrote:
> Здравйте група,
> още от сега искам да кажа че имам проблем с Perl script, проблема не е
> свързан с LUG-BG, но тук има достатъчно разбиращи хора, които могат да
> ми помогнат, така че излишен флейм че това не му е мястото тук е излишен.
> Нека ако някой може да помогне и има желание ми пише, за останалите
> просто изтриите писмото.
ахх фън ;-) но всъщност има и списък [EMAIL PROTECTED] за такива въпроси,
така, че немаа се плашиш ;-)
> Сега на проблема, наложи ми се да пиша скрипт, който да тегли от FTP
> gzip-нати тьт файлове, който да се парсват и да се пъхат в MYSQL.
> При това скрипта да работи под linux и windows.
> и така скрипта е написан и работи под linux без никакви проблеми.
> под windows обаче, скрипта не разархивира правилно.
> Единствената причина за това, която мога да се сетя е да не отваря файла
> в binary mode.
> ето и част от кода :
>
> $gz = gzopen("$file", "rb") or $error=1;
> if ($error){
>$err_msg="Cannot open $file: $gzerrno\n" ;
> }
за виндовс трябва да укажеш експлицитно, че ще работиш в двоичен режим и с
функцията binmode $filename (или filehandle), това за unix няма ефект, така,
че скрипта ще е един и същи за двете. perldoc -f binmode за детайли, да не
пиша наизуст ;-)
>
> while ($gz->gzreadline($tmp) > 0) {
> my @arr=split ("\t",$tmp);
> .
--
pub 4096R/0E4BD0AB 2003-03-18
fingerprint1AE7 7C66 0A26 5BFF DF22 5D55 1C57 0C89 0E4B D0AB
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: perl script
nai weroqtno ne si instaliral Tk modula... probwai : perldoc Tk da widish dali go imash.. > Poлучавам тази грешка когато се опитам да стартирам скрипта: > Can't locate Tk.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i486-linux > /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i486-linux > /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) > > Не съм много на ясно на с perl...и ще съм ви много благодарен за всякаква помощ. > На slack 9.1 съм. > > > > > > - > АВТОРСКИ картички от Mail.bg > Календар на ВСИЧКИ празници > http://mail.bg/greetings/ > > > A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). > http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora > To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html > > A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: perl script
http://cpan.zadnik.org/modules/by-module/Tk/Tk800.025.tar.gz или си го инсталирай през cpan: perl -MCPAN -e shell и после: cpan> install Tk On Wed, 7 Jan 2004 01:20:52 +0200 raptor <[EMAIL PROTECTED]> wrote: > nai weroqtno ne si instaliral Tk modula... > probwai : > > perldoc Tk > > da widish dali go imash.. > > > > > Poлучавам тази грешка когато се опитам да стартирам скрипта: > > Can't locate Tk.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i486-linux > > /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i486-linux > > /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) > > > > Не съм много на ясно на с perl...и ще съм ви много благодарен за всякаква помощ. > > На slack 9.1 съм. > > > > > > > > > > > > - > > АВТОРСКИ картички от Mail.bg > > Календар на ВСИЧКИ празници > > http://mail.bg/greetings/ > > > > > > A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). > > http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora > > To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html > > > > > > A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). > http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora > To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html > > -- Miroslav Yordanov (a.k.a mironcho) Linux for Bulgarians (http://linux-bg.org) Some Perl Scripts (http://mironcho.sourceforge.net) BeboCD (http://bebocd.sourceforge.net) sGmixer (http://opensource.netuser.cc/sgmixer) A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: perl script
#perl -MCPAN -e shell >install Tk BIVOL - Original Message - From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, January 06, 2004 10:07 PM Subject: lug-bg: perl script > Poлучавам тази грешка когато се опитам да стартирам скрипта: > Can't locate Tk.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i486-linux > /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i486-linux > /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) > > Не съм много на ясно на с perl...и ще съм ви много благодарен за всякаква помощ. > На slack 9.1 съм. > > > > > > - > АВТОРСКИ картички от Mail.bg > Календар на ВСИЧКИ празници > http://mail.bg/greetings/ > > > A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). > http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora > To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html > > A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
Re: lug-bg: perl script
On Wed, 7 Jan 2004, [EMAIL PROTECTED] wrote: > #perl -MCPAN -e shell >>install Tk ÐÐ ÐÑÑÐÐÑÐ: perl -MCPAN -e 'install Tk' Teo A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
