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 <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
============================================================================
