Re: lug-bg: Perl script

[George Danchev <danchev@xxxxxxxxx>]

On Tuesday 24 May 2005 02:31, Svetulcho wrote:
> Здравйте група,
> още от сега искам да кажа че имам проблем с Perl script, проблема не е
> свързан с LUG-BG, но тук има достатъчно разбиращи хора, които могат да
> ми помогнат, така че излишен флейм че това не му е мястото тук е излишен.
> Нека ако някой може да помогне и има желание ми пише, за останалите
> просто изтриите писмото.

ахх фън ;-) но всъщност има и списък dev@xxxxxxxxxxxxxxxxxx за такива въпроси, 
така, че немаа се плашиш ;-)

> Сега на проблема, наложи ми се да пиша скрипт, който да тегли от 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 <danchev.fccf.net/key pgp.mit.edu>
fingerprint    1AE7 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
============================================================================