Rob,
why not try one of r-desktops. I use TridiaVNC, which you can carry with
ssh.
Mark G
- Original Message -
From: "Rob Richardson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, September 29, 2003 3:33 PM
Subject: Re: Generic database access?
&g
-r can only be used by itself and is used to refresh or
> create the on disk copy of cpan information.
> (Defaults to /usr/local/cpan/cpan_dat/combo_list.dat)
> NOTES:
> Consider that with -[abdmi] flags the supplied REGEX will be
> inserted after some de
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: "Mark G" <[EMAIL PROTECTED]>
Cc: "perl" <[EMAIL PROTECTED]>
Sent: Sunday, June 29, 2003 4:37 PM
Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 29, 2003 11:58 AM
Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <[EMAIL PROTECTED]> writes:
>
> > that would be
>
Thanks Kevin, that did it.
Mark G.
- Original Message -
From: "Kevin Pfeiffer" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 29, 2003 5:45 AM
Subject: Re: refs to hashes
> In article <[EMAIL PROTECTED]>, Mark G wrote:
>
> > Hi
Hi All,
I need to read in some data and put it into a data structure ex:
knife #product name
3 #quantity
1 #price
I would like to hold in as a hash referancing other hashes ex:
$ref=read_data();
sub read_data{
open $RD,"< value.dat" || print "could not process request\n"
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, June 28, 2003 7:18 PM
Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <[EMAIL PROTECTED]> writes:
>
>
> >> $tar
le handle
> Instead of STDOUT like it does in this formulation:
>
> $target = "somefile";
> if($opt_r){
> open(FH,">$target") or die "Cannot open $target: $!";
> print FH CPAN::Shell->i;
you can try IPC::Open2.
Mark g
> }
>
HI Janek,
This doesnt seem to work on my Active perl 5.8.
Mark G
- Original Message -
From: "Janek Schleicher" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, June 20, 2003 3:28 PM
Subject: Re: perldoc - html format ?
> Jeff Westman wrote at Fri, 2
O BoY, These are deffinitly Camel girls
Mark
- Original Message -
From: "zentara" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, June 20, 2003 3:08 PM
Subject: Re: Can LWP::Simple tranfer image urls?
> On Fri, 20 Jun 2003 09:09:21 EDT, [EMAIL PROTECTED] wrote:
>
> >Do I
'default' => '',
> # 'verbose' => '', # Not needed on every key.
> 'order' => 1,
> },
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
Mark G.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
x27;<',"$PATH\\$_" || die "ERROR: $!\n";
m/- (.*) - (.*)\./i;
open WR,'>',"$CONV_DIR\\$2 - $1\.mp3" || die "ERROR: $!\n" if( $1 and $2);
# copy your file over
while(1){
$char=sysread (TMP,$buff,4*2048) or last;
syswrite WR,$buff,$char ||die "ERROR: $!\n";
}
}
<~~~ paste
hth,
Mark G
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
w" image.
> >
> >HTH
> >
> >Dmuey
>
>
> Sorry, I don't like those 'two-scripts' solutions,
> i'd rather prefer something like 'ping' but i don't
> really know how to do that. I will try around with
> your suggestion
- Original Message -
From: "Bryan Harris" <[EMAIL PROTECTED]>
To: "Beginners Perl" <[EMAIL PROTECTED]>
Sent: Tuesday, June 17, 2003 1:33 AM
Subject: Re: while (<>)
>
> > #!/usr/bin/perl
> >
> > my $showme = shift
> > or die "Usage: $0 [FILES]\n";
> >
> > while (defined(my $lin
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, June 17, 2003 1:35 AM
Subject: Re: Capture a printing function into an array
> Mark G <[EMAIL PROTECTED]> writes:
>
> > I am a newbie as well b
need to split
@c = split "",sprintf(my_func());
> # @c = eval my_func();
>for (@c){
> print "Got it => $_\n";
>}
> }
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
hTh,
Mark G
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
> #make the archive:
> `tar -cvzf $targetpath $files`;
This to can be write in perl.
perldoc -m Archive::Tar
perldoc -m Compress::Zlib
- Original Message -
From: "West, William M" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 16, 2003 3:08 PM
Subject: Backup utility (w
this;
<~~~cut
#!PERL -w
open(FILE,'>> ./test.dat') || die "$!\n";
print FILE "hello";
close FILE;
print "last modified:\t" . scalar (localtime ( (stat "./test.dat")[8] ) );
<~~paste
hth,
Mark G
- Original Message -
From: &
} else {
print "You got it right!\n";
last;
}
}
<~~~ paste
- Original Message -
From: Mr.T Mr.X
To: Mark G
Sent: Sunday, June 15, 2003 2:40 AM
Subject: Re: I need to make this not end
all right, the only problem with the script you sent is t
> I'm trying to make that ^^^ not end if you guess the number wrong. The
chapter im reading is using the "for" and "while" >loop, but i guess I dont
know enough yet to do this. Can someone help?
you would need some type of a look to itterate through your code, that is
why you book uses "for" a
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, June 12, 2003 9:17 AM
Subject: RE: File not getting written
> From: Rob Das <[EMAIL PROTECTED]>
> > I'm trying to merge a whole bunch of files (possibly tens of
> > thousands) into one
Here is an example that i posted some time ago, :
<~~ cut
use Socket;
use Fcntl;
use POSIX;
my $PORT=2100;
my $proto=getprotobyname('tcp');
socket($socket,AF_INET,SOCK_STREAM,$proto) || die "couldn't get socket:
$!\n";
bind($socket,sockaddr_in($PORT,INADDR_ANY)) || die "couldn't bind: $!\n";
hmm this misterious { _ } operand ?!? Is it sometype of a bitflag in the
stat code it self, perhaps some magical referance to return structure.
Anyhow here is a bit of code that utilizes it, run it in a directory with
about 10 files,
HTH, Mark
<~~~ CuT
use Benchmark::Timer;
use Fcntl ':mode';
$
> Checking the sessions on the machine only shows users
> opening files
hmm, I bin loking for a module that can tell me what process has a file
opened on win box. what are you using ??
Mark G.
- Original Message -
From: "Federico, Chris" <[EMAIL PROTECTED]>
To: &l
and see for your self {readdir}
Mark G
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
- Original Message -
From: "Manish Uskaikar" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, May 31, 2003 12:34 AM
Subject: Unzip using perll
> Hi,
>
> I would like to find out, if there is any command which can do a unzip of
a *.zip file; This unzip should be of the form ext
Hi Michael,
> I have a report that is in HTML format, it is about 120k of text. When
> is use the program fragment below to send the report, I get only the
> first 8k (about) and that's it.
>
judging by your code, you want to attach an HTML file as attachment ( Type
=>'multipart/related',
) ,
Just out of curiosity what kind of cards are you using that you can change
the MAC address ??
Mark
- Original Message -
From: "Nikolay Hristakiev" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, May 30, 2003 12:36 AM
Subject: Can someone find out what's wrong ?
> I've got a sc
> That won't work if the dates are more than a year apart(i.e. >100302 will
Thanx Tim, I didnt think about that. Perhaps you will need to break up the
string into 3 fields.
Mark G
- Original Message -
From: "Tim Johnson" <[EMAIL PROTECTED]>
To: "'
> How can I have condition as such
>
> $date = 'XX/XX/XX'; <-insert any date
> If $date is greater then 01/01/02 then do .
> Else
>
here is one simple way:
<~~~cut
$foo="01/01/02";
$bar="01/03/02";
$foo =~ s/\///g;
$bar =~ s/\///g;
if( $foo > $bar ){
print "\$foo is greater then
I dont know if this is the problem, but why do you issue a system
sleepperl has a built it sleep [perldoc -f sleep]. Is perl system thread
safe on Solaris ?? Maybe you launch your threads and they are sleeping and
you dont realize it , just my 2 cents.
Mark
- Original Message -
From: "
Hello guys,
I think that perl 5.8 on winXP has a problem with file descripter tables. It fails to
properly handle parents STDOUT when I dup2 in the child. Here is my script that runs
fine on my FreeBSD box. It properly redirects childs STDOUT to a file , while leaving
parents STDOUT to the scre
hi all,
I am having a problem with duping stdout and socket. When my client forks of children,
the childrens stdout is then duped with a socket. Which is what I want, but for some
reason the parents stdout gets redirected as well. I want the parents STDOUT to stay
the same and only redirect chi
fic IP then it may not be listening to localhost and I wouldn't be
> able to connect, but the only IP it should listen on
> if that's the case is my '192.168.x.x' IP from my router. I
> tried setting to that IP as well with no luck
could be, if you want send me your
Hi Chad,
I think your error lay in the place where Jenda pointed for you. Going posix
way is the right way if you intend to do a lot of low level stuff your self.
Mark
- Original Message -
From: "chad kellerman" <[EMAIL PROTECTED]>
To: "beginners" <[EMAIL PROTECTED]>
Sent: Monday, March 2
Hi Stefan,
If you have two different sockets open, one should not block the other no
meter what kind of a socket that is. Send some of the code, might help us
help you.
Mark
- Original Message -
From: "Stefan Johnson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, March 22,
Hi Beau,
Dont know much about linux, but over on BSD there is a /dev/console . I am
sure you can play with that, there are also open source key-loggers from
which you can probebly extract the info you are looking for. Let me know how
it go's.
Mark
- Original Message -
From: <[EMAIL PROTE
you can also write your own telnet client that can establish FTP sessions on
the fly. In perl it would be simple, I wrote a pritty nice FTP server in
about a day or so.
Mark
- Original Message -
From: "Jeff Westman" <[EMAIL PROTECTED]>
To: "beginners" <[EMAIL PROTECTED]>
Sent: Friday, Mar
Ok I wrote you a quick example jeroe. I only had time to test it on a Xp
box, this should work on *nix as well since most of my coding is on *nix.
What you are looking for is a set of exec and waitpid call's to do the trick
for you. Basicly this is how its usually don with forking.
a: parents fork
Make sure your script starts with
#!/path/to/perl
then change permission of the script,
chmod 755 file_to_set
try to run your script, if it doesnt work try
#perl file_to_run
Mark
- Original Message -
From: "mel awaisi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, March 0
> If memory serves me
...looks like no leaks to me :O)
- Original Message -
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, February 21, 2003 9:50 AM
Subject: Re: Coprocessor while running perl 5.4 (dos version)
> Fr
> This looks a lot like an ix86. What generation, I don't know. Lst time I
remember explicitly knowing that my box had a >math coprocessor, I was
running a 386. I believe the Pentium chip pulled the functionality back
into the CPU.
>
that must be exactly it. the x486 was same thing. You needed
> a real basic tutorial or doc of some kind that explains how to
> write a simple shell
here is a real simple psuedo shell;
while(){
read from stdin
parse it
do something with it depending on the string read
}
- Original Message -
From: "ktb" <[EMAIL PROTECTED]>
To: <[EMAIL
43 matches
Mail list logo
