Re: How to use IO::Socket

2003-03-19 Thread Robert Rendler
On Wed, 19 Mar 2003 09:01:28 -0500 Bob Showalter <[EMAIL PROTECTED]> wrote: > > That can't work. You need a port at least. Where are you checking for failed > connection? Do you have "use strict" and -w in your program. > That was just a VERY basic example of creating $client and yes I do use s

How to use IO::Socket

2003-03-19 Thread Robert Rendler
Over the long haul I've made a couple of programs that use sockets but still I don't understand to very basics of it yet. That is how to properly send and receive the data. So far what I have been doing is thus: $client = IO::Socket::INET->new('server'); while (<$client>) { chomp; next un

Re: Capture wget progress bar

2003-03-15 Thread Robert Rendler
On Sat, 15 Mar 2003 20:53:27 +1100 Robert Rendler <[EMAIL PROTECTED]> wrote: > I would very much like to use the actual graph while the files are > downloading. That's the whole point I'm using wget instead of LWP. Well the > graph and ease of resuming. Oops, s/gr

Re: Capture wget progress bar

2003-03-15 Thread Robert Rendler
On Sat, 15 Mar 2003 15:11:07 +0530 Ramprasad <[EMAIL PROTECTED]> wrote: > > Why dont you use wget -b and then read the file wget.log I would very much like to use the actual graph while the files are downloading. That's the whole point I'm using wget instead of LWP. Well the graph and ease of re

Capture wget progress bar

2003-03-15 Thread Robert Rendler
Currently I'm unable to capture wget's progress bar (the one with the arrow). It doesn't appear to be using STDOUT or STDERR. So this his not working: open WGET, "wget foo.moo 2>&1 |" or die "Couldn't run wget: $!\n"; while(){ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands

Re: opening a list of files

2002-09-25 Thread Robert Rendler
Arg!! Sorry, I really should have read the question more carefully. while ($file = ) { open FH, $file or die $!; local $total; while () { $total += split /\S+/, $_ ; --$total; } print "In the file $file there are $total words\n"; } -- print`$^Xdoc -qj`=~/"(.*)"/ --

Re: opening a list of files

2002-09-25 Thread Robert Rendler
On Wed, 25 Sep 2002 20:32:07 +1000 Robert Rendler <[EMAIL PROTECTED]> wrote: > I don't know how accurate this may be: Bit of testing and it seems kinda accurate, shortened it anyways. while () { open FH, $_ or die $!; while () { $total += scalar split /\S+/

Re: opening a list of files

2002-09-25 Thread Robert Rendler
On Wed, 25 Sep 2002 12:13:45 +0200 Adriano Allora <[EMAIL PROTECTED]> wrote: > Hi to all, > I need a script to open all the files in a directory and count all the > words of them, but it doesn't work: > > > use Text::ParseWords; > $folder = "pathname"; > opendir(KART, $folder); > foreach (readd

Re: MySQL & Perl (again)

2002-09-24 Thread Robert Rendler
On Tue, 24 Sep 2002 12:45:58 +0100 "dan" <[EMAIL PROTECTED]> wrote: > Finally I managed to get my perl script to connect to the relevant MySQL > database. I've looked at the DBI.pm information, but I still am pretty > clueless about how you read data from a table, and write data to it. Any > help

Re: embed Perl in HTML

2002-09-23 Thread Robert Rendler
On Sun, 22 Sep 2002 23:53:37 -0400 Jim Lundeen <[EMAIL PROTECTED]> wrote: > I use Dreamweaver and would like to embed Perl code within my HTML, much > like one would embed PHP code within HTML, and still be able to visually > manipulate my HTML/Perl file with Dreamweaver.Any suggestions? >Fr

open2 to IPC::Run

2002-09-22 Thread Robert Rendler
I've been trying to turn an open2 command into an IPC::Run command without much luck, here's my open2 command: open2 *READER, *WRITER, "$self->{_nsgmls} -E0 -s $sgmlDecl - 2>&1"; print WRITER $self->{_xhtml}; close WRITER; while () { So far I haven't even come close

Re: use of s///

2002-09-20 Thread Robert Rendler
On Fri, 20 Sep 2002 10:02:18 +0300 "Igor Kutsyy" <[EMAIL PROTECTED]> wrote: > My script analizes .html text were a lot of tags. I need to delete tag: ...>. The problem is that it writen in mixed ways:("äÅÎØ" 18.09.02) > ***ðáòô ; ì > äåòÉ > ## > > if I execute a command: $string=~ s/ SIZE=2>//