ftps module

Hi All! I need ftps support fo my app, could anyone recomend good opensource module ? Thanks -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and all the music is free... pgp6a0G6xWgvN.pgp Description: PGP signature

Re: parse xml with invalid chars

I think i found solution suitable for me. I would wrap all broken texts in CDATA sections, it works perfectly. Thanks for help On Fri, Jun 04, 2010 at 02:05:58PM -0400, Chas. Owens wrote: > On Fri, Jun 4, 2010 at 13:30, Roman Makurin wrote: > > I used mostly the same things, but withou

Re: parse xml with invalid chars

, Chas. Owens wrote: > On Fri, Jun 4, 2010 at 12:23, Roman Makurin wrote: > > Hi, here it is http://pastebin.org/307289 > > > > On Fri, Jun 04, 2010 at 12:06:24PM -0400, Chas. Owens wrote: > >> On Fri, Jun 4, 2010 at 10:16, Roman Makurin wrote: > >> > H

Re: parse xml with invalid chars

Hi, here it is http://pastebin.org/307289 On Fri, Jun 04, 2010 at 12:06:24PM -0400, Chas. Owens wrote: > On Fri, Jun 4, 2010 at 10:16, Roman Makurin wrote: > > Hi all > > > > Last time i have a big problem, i need parse xml files > > which have invalid xml cha

parse xml with invalid chars

Hi all Last time i have a big problem, i need parse xml files which have invalid xml chars outside of CDATA and xml parser hangs everytime on such files. Is there any way to parse such files ??? thanks -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and al

best way to get number of elements in list value

Hi All! right now im doing it in following way: $size = @{[func_that_return_list_value]}; is there any best way to do it ? Thanks. -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and all the music is free... signature.asc Description: Digital signatur

rfc 822 formated time -> to unix time

Hi All. Is there any more or less standart way to convert string formated according to rfc822 to unix time ? Thanks. -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and all the music is free... signature.asc Description: Digital signature

Re: HTML::TreeBuilder - handle invalid html gracefully

On Sun, Aug 23, 2009 at 02:56:44PM +0400, Roman Makurin wrote: > Hi All! > > How can I tell HTML::TreeBuilder to parse invalid html files > gracefully ? Here is an example: > > - > #!/usr/bin/perl > > use strict; > use warnings; > > use HTML::TreeBuilde

HTML::TreeBuilder - handle invalid html gracefully

Hi All! How can I tell HTML::TreeBuilder to parse invalid html files gracefully ? Here is an example: - #!/usr/bin/perl use strict; use warnings; use HTML::TreeBuilder; my $root = HTML::TreeBuilder->new_from_file(*DATA); print +($root->look_down(_tag=>'div', class=>'text'))->as_text, $/;

Re: HTML::TreeBuilder encode symbols as html entities

On Fri, Aug 14, 2009 at 5:35 PM, Shawn H. Corey wrote: > Roman Makurin wrote: >> >> dump result is html encoded entities: >> >> @0.1.5.1 >>  > title="Ссылка ">@0.1.5.1.0 >> >> all html entities are valid unicode code points of symb

HTML::TreeBuilder encode symbols as html entities

Hi All. I have a problem with HTML::TreeBuilder. Here is sample code without any error checking: $ua = new LWP::UserAgent -timeout=>10; $resp = $ua->get($url); $content = decode('encoding_of_web_page', $resp->content); decode_entities($content); $r = HTML::TreeBuilder->new_from_content($conten

Re: localtime() oddities

Big thanks for replying. Just modified my mktime() call : POSIX::mktime(sec, min, hour, month, year, -1, -1, 1); and now it work as expected :) On Mon, Aug 03, 2009 at 08:42:43AM -0400, Shawn H. Corey wrote: > Roman Makurin wrote: >> Could someone explain me whats goin on :) >>

localtime() oddities

Hi All! I have a strange problem. Here is sample code: perl -MPOSIX -le 'print scalar localtime(POSIX::mktime(0,30,14,03,07,109))' When i test it on my laptop, everything goes fine, its output is: Mon Aug 3 14:30:00 2009 But when im trying to execute it on freebsd server it gives me following

lwp content encoding

I have a problem with lwp. When I retrive pages i use decode_content to access html. Which encoding has the result of decoed_content ? my $ua = LWP::UserAgent; my $resp = $ua->get("http://some.url";); die $resp->status_line, $/ unless $resp->is_success; Im using HTML::TreeBuilder to build html tr

friend class in perl

Hi I need create a friend class. Is there any special that I need to know ? For now, I get object and work with it like with ordinary reference with direct access to internal fields. Thanks -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and all the music

Re: How to print errors to both STDERR & a file?

On Wed, Jun 24, 2009 at 09:25:05AM -0700, pa...@compugenic.com wrote: > I'd like to automatically have my script's errors and warnings sent to > both STDOUT (console) and a log file. What is the proper way of doing this? print STDERR mess; print FILEHANDLE mess; > > Pablo > > -- > To unsubsc

Re: question about constants

On Wed, Jun 24, 2009 at 03:25:57PM +0200, Jenda Krynicky wrote: > From: Roman Makurin > > here is complite perl script which produces such results without > > any warning: > > > > #!/usr/bin/perl > > > > use strict; > > use warnings; > >

Re: question about constants

On Wed, Jun 24, 2009 at 04:37:52AM +0200, Gunnar Hjalmarsson wrote: > Strange. > > It looks like strictures and warnings are not enabled (@a and @b are not > declared). Try to add > > use strict; > use warnings; > > and see if that makes Perl give you a hint. > here is complite perl scri

Re: question about constants

On Wed, Jun 24, 2009 at 03:02:00AM +0200, Gunnar Hjalmarsson wrote: > Roman Makurin wrote: >> >> use constant { >> A => 1, >> B => 2, >> C => 3 }; >> >> @a = (1, 2, 3); >> @b = (A, B, C); >> >> # first loop &g

question about constants

Hi All today i spend a lot of time with following problem. part of code: use constant { A => 1, B => 2, C => 3 }; @a = (1, 2, 3); @b = (A, B, C); # first loop while(my $i = shift @a) { print $i, $/ } # second loop while(my $i = shift @b) { print $i, $/

Re: question about eval usage

On Tue, Jun 23, 2009 at 07:54:54PM +0200, Paul Johnson wrote: > > >From the docs: http://perldoc.perl.org/perlmodstyle.html#Version-numbering > Big thanks. -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and all the music is free... -- To unsubscribe, e

Re: question about eval usage

On Tue, Jun 23, 2009 at 12:46:33PM +0200, Jenda Krynicky wrote: > From: Roman Makurin > > Just looked throught some standart perl modules and found > > something cryptic to myself: > > > > package Module; > > > > $Module::VERSION = '1.0&#x

question about eval usage

Hi all! Just looked throught some standart perl modules and found something cryptic to myself: package Module; $Module::VERSION = '1.0'; $Module::VERSION = eval $Module::VERSION; Why eval part is needed here ? Thanks PS: sorry for my english -- If you think of MS-DOS as mono, and Windows as

Errors in parsing XML

Hi All Im using XML::RSS for parsing RSS feeds, it works fine for most feeds, but sometimes it gives me following error: not well-formed (invalid token) at line 779, column 11, byte 83104 at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/XML/Parser.pm line 187 Firefox and other RSS a

Re: Parsing RSS feeds

В Сбт, 31/01/2009 в 09:05 +0200, Erez Schatz пишет: > On 1/31/2009 8:45 AM, Roman Makurin wrote: > > Hi All! > > > > Which is best way to parse(not create) RSS Feeds(0.9, 1.0 and 2.0) in > > perl ? I looked through XML::RSS, but it looks like mostly for creating &g

Parsing RSS feeds

Hi All! Which is best way to parse(not create) RSS Feeds(0.9, 1.0 and 2.0) in perl ? I looked through XML::RSS, but it looks like mostly for creating feeds. Thanks PS: Sorry for my English -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h..

question about "local our"

Hi All! I want to ask whats difference between usage of "local" and "local our" Here is example code: #!/usr/bin/perl use strict; use warnings; our $i = 0; sub t_func1 { local $i = 1; print "\$i = $i\n"; } sub t_func2 { local our $i = 2; print "\$i = $i\n"; }

Re: hash

Bobby wrote: Here's a better excerpt of the script, see my comment towards the bottom. Thanks. #!/usr/local/bin/perl use strict; open(IN, $ARGV[0]) || die "Could not open data file: $ARGV[0]\n"; my %US; my %EURO; my %ITAL; my %GENERAL; my $DEBUG = 0; # map each store to its children stores

Re: No such file or directory

anthony brooke wrote: Hello, I know that this is a very common problem, but I am very sure that the file exist in that directory, also its permission is -rwxrwxrwx , why does it give such an error ? What are the other potential problems that cause this ? Thanks Send instant messages to your

Reference and assignment question

ng my. print("[EMAIL PROTECTED]", Dumper([EMAIL PROTECTED])); # This works... Why is redeclaring the variable important? Why doesn't the reassignment work? --- Thanks for any enlightenment... Roman -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Odd DBM::Deep behavior "cannot store tied value" using literal key name

Chas. Owens wrote: > Is there a reason you have chosen DBM::Deep? It seems to have > problems. The latest version fails its tests (and not just on Win32) > and the version you are using seems to have other problems. I would > probably use a normal DBM and use YAML (Pure Perl) or YAML::Syck > (f

Re: Odd DBM::Deep behavior "cannot store tied value" using literal key name

On Jan 8, 2008 12:33 PM, Roman Daszczyszak <[EMAIL PROTECTED]> wrote: > However, I believe I "discovered" the source of my original 'tied' > error: I was working on a mapped network drive, not a local drive. I > don't know for sure, but since moving to

Need help understanding DBM::Deep and Data::Compare behavior

h the same data structure stored in the DBM::Deep database, the compare returns false, even though the elements, keys, and values are all identical. #1 would not matter if it didn't cause problem #2. Any way I can avoid the failed comparison? Thanks for any assistance provided.

Re: Odd DBM::Deep behavior "cannot store tied value" using literal key name

he original problem (something using Data::Compare with DBM::Deep). :) Thanks for the help! On Jan 7, 2008 3:02 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > > On Jan 7, 2008 6:22 AM, Roman Daszczyszak <[EMAIL PROTECTED]> wrote: > > On Jan 4, 2008 5:45 PM, Chas. Owens <[EM

Re: Odd DBM::Deep behavior "cannot store tied value" using literal key name

On Jan 4, 2008 5:45 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > When I downgrade to 0.983 I immediately get "DBM::Deep: File type > mismatch" even with your original code. I would suggest upgrading > DBM::Deep to version 1.0006. > Unfortunately, the Activestate Windows build for 5.8 DBM::Deep 1.

Re: Odd DBM::Deep behavior "cannot store tied value" using literal key name

4, 2008 5:03 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Jan 4, 2008 9:13 AM, Roman Daszczyszak <[EMAIL PROTECTED]> wrote: > snip > > The above code works as-is, but if I uncomment the line(s) above > > (marked with a comment), I get the error: DBM::Deep: Canno

Odd DBM::Deep behavior "cannot store tied value" using literal key name

Hi all, I am trying to create a test script for some work I'm trying to do with Data::Compare using DBM::Deep, but the test code is acting flaky and I'm not sure why. In a previous (and working) script, I have a DBM::Deep hash keyed using IP addresses. Inside the hash is an array that contains s

Re: Data::Compare module help

Oops.. I made one mistake in my explanation. The structure in question is a hash of usernames each containing another hash of the user attributes. I'm trying to use the code to ignore an attribute in the second-level hash. Will that work? On Dec 12, 2007 3:49 PM, Roman Daszczyszak &l

Data::Compare module help

s actually being ignored? Am I using it wrong? (I copied the line directly from the sample code on CPAN and just changed the variables) Code below: $updateUsers = Compare(\%oldUsers, \%newUsers, { ignore_hash_keys => [qw(passwordAge)] }); It always returns a '0' (false m

RE: perl script instead of grep

hould be able to run it on windows and linux.. Most of my development it on windows. So I don't think too much about unix compability. Cheers Roman -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Monday, 8 January 2007 5:16 PM To: Roman Cc: beginners@pe

RE: perl script instead of grep

$macPCName{$1} = $pcName; } } close(IN); #print "pcdetails: $pcDetails[0] : pc name : ", $1 ."\n"; } } while ( my ($key, $value) = each %macPCName) { # print out the pc name and mac address print "$value $key\n"; } print "Done ! \n"; exit(0); Script end Cheers Roman -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

RE: Database entries into a hash or array

Wouldn't it be better to filter the result with the sql statement? Instead of doing it in perl. -Original Message- From: Mathew Snyder [mailto:[EMAIL PROTECTED] Sent: Thursday, 16 November 2006 4:53 PM To: John W. Krahn Cc: Perl Beginners Subject: Re: Database entries into a hash or arra

Re: Looking for a Perl module for proper IP sorting

Please sort the IP addresses with this way could help you, @list = sort { $b <=> $a } @ip_addresses; Wouldn't this do the same kind of sort I've been doing (aka a textual one)? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Looking for a Perl module for proper IP sorting

my @sorted = sort { my @a = $a =~ /(\d+)/g; my @b = $b =~ /(\d+)/g; shift @a <=> shift @b or shift @a <=> shift @b or shift @a <=> shift @b or shift @a <=> shift @b } @ips; Rob Thanks, that did it! Now I have to figure out why that works... hmm.. Rom

Looking for a Perl module for proper IP sorting

I have a bit of code that collects and stores all the IP addresses used on my network. However, when I sort the list via 'sort' the IP addresses are listed as if they were text, so the output looks like this: 192.168.0.1 192.168.0.100 192.168.0.101 192.168.0.114 192.168.0.115 192.168.0.116 192.16

RE: Trouble with variable scoping

From: "Charles K. Clarkson" <[EMAIL PROTECTED]> To: Date: Thu, 31 Aug 2006 10:41:33 -0500 Subject: RE: Trouble with variable scoping Roman Daszczyszak wrote: : In my perl script, I have a "global" variable called : @excludedIPAddresses, declared at the top of the sc

Trouble with variable scoping

In my perl script, I have a "global" variable called @excludedIPAddresses, declared at the top of the script using my: use strict; use warnings; use Net::Ping; use Net::Netmask; use Net::NBName; use DBM::Deep; # User-configured variable declarations my @su

Multiple matching question

Hello all, I have several text files with a few thousand contacts in each, and I am trying to pull out all the contacts from certain email domains (about 15 of them). I wrote a script that loops through each file, then loops through matching each domain to the line and writes the results to two

Other ways to assign a filehandle to a variable?

for "assigning filehandle to variable perl" and a couple other searches, but only came up with pages directing how to read from a filehandle into a scalar. Regards, Roman -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.

Need help with error from certain ASCII characters in a CSV file

occurring that I am not seeing? Any advice you may lend would be greatly appreciated. Regards, Roman Code follows: - #!\perl\perl.exe use warnings; use strict; use Class::CSV; # Main program area my $OUPath = "OU=EXTERNAL,DC=PRIV,DC

Getting a dir list (Why does this happen)

t ends up being: C:\>perl c:\work\temp\test.pl blah1: [[[1]]] blah2: [[[1]]] blah3: [[[1]]] blah4: [[[test.pl]]] Could any one explain why I am getting the different results. I would thought that I would get the file name back in all instances of blah not just blah4 and why does it only work

Unix solaris Scripting

capture this "Do you want to install these conflicting files [y,n,?,q]" and send it a response some how ? Perl = v5.8.5 built for sun4-solaris Solaris 9 Cheers Roman

Re: POSIX valid_user.al

Probably wrong/broken installation of Authen::Smb. Valid_User is defined in file smbval/valid.c which is part of Authen::Smb distribution. Try to recompile/reinstall Authen::Smb again. Roman On Wed, Feb 02, 2005 at 12:36:06PM +, [EMAIL PROTECTED] wrote: > Morning > > > I

Regular Expressions - multiplelines

Hi I have a txt file that contains the following info: Text start here $/Dev/something/something.com/blah1: default.asp userExc 26/07/04 1:42p [TEST-DEV]F:\content\blah\wwwroot\blah1 $/Dev/something/something.com/something: test.asp

Regular Expresssion - Matching over multiple lines

Hi All I have bunch of files that contain code like this: What I am trying to do is match then check that this piece of code contains a alt= tag. And if it doen't print the lines where it's missing to screen or file. Cheers any help appreciated. -- To unsubscribe, e-mail:

Read From Socket

Hey Guys I'm trying to read an answer from an SMTP server via socket. I'm writing a function wich returns everything till it finds a line which doesn't begin with 3 digits and a - (/^[\d]{3}-/), but returns this line,too. Best I could get till now, is the function below. My question now is, if tha

PERL OLE Troubles

Hi All I am bit lost with Excel Perl OLE Automation. I have a spreadsheet that contains a number of sheets in it. The data sheet contains all the data and the request sheet contain a number of excel charts. The problem I have is that can't update the sourceData in the Chart 1 on the requests

RE: execute external program in sever/client enviroment via open

t of code.. of course server closes connection, not client. I'm testing my server by telneting to its port. anyway thank you for your answer. roman -Original Message- From: Dan Muey [mailto:[EMAIL PROTECTED] Sent: Friday, February 28, 2003 3:22 PM To: Roman Mikus; [EMAIL PROTECTED] Subj

execute external program in sever/client enviroment via open

} 1; 'pw' script needs some command line arguments defined in variable $tmp which is passed to open. '-h 0' argument make pw to wait for password to be specified on standart input, so I need build an pipe to it. I'm running FreeBSD 4.7 with perl 5.005_03 and

PERL2EXE || PERL2BIN

why i can compile PERL script under Linux to binnary? : :.. Roman Fordinal :.: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re[2]: objects and hash

Friday, February 08, 2002, 2:26:47 PM, you wrote: >> :.. Roman Fordinal >> :.. project manager ML> Well, as a Project Manager you should, perhaps, be a bit more specific ML> about what you want :-) sorry, my englisch is too bad for d

objects and hash

>??? print $key.":".$self->{header}->{$key}."\n"; >??? } bless $self; return $self; } : :. s pozdravom :.. Roman Fordinal :.. project manager :.: :.: WebCom s.r.o. - Internet Advertising Agency & Design Studio :.: S

File Attributes

I can't remember how, But how do i change the attribute of a file from read only to writable and then back gain. Thanks Roman -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re[2]: open socket

client wait for "broken pipe" : :. s pozdravom :.. Roman Fordinal :.. project manager :.: :.: WebCom s.r.o. - Internet Advertising Agency & Design Studio :.: Stanicna 12, Zohor, Slovakia :.: Tel: +421.02.65458251, +421.0907.178147

select text

i need get e-mail adrees from string $email="Name LastName <[EMAIL PROTECTED]>" to $email="[EMAIL PROTECTED]" why get it : : :. s pozdravom :.. Roman Fordinal :.. project manager :.: :.: WebCom s.r.o. - I

open socket

why i open socket with Socket(); to host "localhost", protocol "tcp" & port "110" {for POP3} i can it make only with IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port, Proto=>$proto); : :.. Roman Fordinal :.: [EMAIL P

fastCGI Perl & memory

ullid|g; @ref=split(',',$db_micro_line[5]); $nullid=$ref[0]; if ($nullid<10){$nullid="0$nullid"}; if ($nullid<100){$nullid="0$nullid"}; if ($nullid<1000){$nullid="0$nullid"}; if ($nullid<1){$nullid="0$nullid"}; if ($nullid<10){$nullid="0$nullid"}; if ($nullid<100){$nullid="0$nullid"}; $db_micro1 = $dbh->Query("SELECT ID,small_120x160,original FROM photogallery WHERE ID='$ref[0]' LIMIT 1"); if (@db_micro1_line=$db_micro1->FetchRow()) { if ($db_micro1_line[1] eq "Y") { @ref=split('x',$db_micro1_line[2]); @ref=&image_size($ref[0],$ref[1]); $mdl_temp=~s|||g; } else { $mdl_temp=~s|||g; } } else { $mdl_temp=~s|||g; } } undef %db_micro_line; undef %db_micro1_line; undef %ref; return $mdl_temp} : :.. Roman Fordinal :.: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

it is bad?

y $length=length($mdl_output); } : :.. Roman Fordinal :.: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Has any one been able to talk to a Visual Source Safe Database

Hi All Looking for any info on how to make perl talk to visual source safe V6.0a if it's even possible. I would like to be able to pull out the details for each file. The history, pinning and some other stuff. Thank Roman -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com