Hi all,
I am trying to do directory traversal on NTFS. When I test fileif its a
directory or a regular file. It does not seem to work. -d anf -f test's dont
seem to work as well. Can someone please look over my error.
Thankx in advance, Mark
#!c:\perl\bin\perl -w
use Win32::File ;
&my_trav('.'
Nikola Janceski <[EMAIL PROTECTED]> wrote:
>>
>> is there a way to use the PROGRAM LIST format for backticks
>> or open the same way you can for exec and system?
>
> I have found one work around, but I was hoping there would be
> some other way..
>
> perhaps this suggestion can make it into Perl
You can also look at PAR... http://www.autrijus.org/par-intro/
Sumit.
<<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>>
We cannot become what we need to be by remaining what we are.
<<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>>
Hello, I need help with the code below. It all works and the data is
streamed into the database, but it takes a long time. I'm dealing with
60,000+ records that are being pulled from a continuous growing text
file (that stops after the hour of data is collected). I just want to
see if anyone has su
how about the poor mans way ... Acme::Bleach
> -Original Message-
> From: Timothy Johnson [mailto:tjohnson@;sandisk.com]
> Sent: Friday, November 08, 2002 11:05 AM
> To: 'dan'; [EMAIL PROTECTED]
> Subject: RE: Securing/Encrypting Source
>
>
>
> If you just want to make it harder, you ca
[message rearranged because of jeopardy style posting]
"Paul Johnson" <[EMAIL PROTECTED]> wrote in message
news:20021107205443.GA4209@;pjcj.net...
On Thu, Nov 07, 2002 at 03:08:23PM -, dan wrote:
answering my own question, i read back the newsgroup a little, and came
across an article ab
Tim Yohn wrote:
On Thu, 7 Nov 2002 11:04:26 -0800
Timothy Johnson <[EMAIL PROTECTED]> wrote:
It sounds like the eval solution proposed earlier is exactly what
you're looking for then. You can just store the string in your hash
and eval it when you need to print.
Yup! With a little rework
I need some ideas for parsing a multi-line message block and reformat
into columnar output
1. message block is bound by a begin and end tags {begin} {end}
2. within the message blocks are tags for column data :1: :34:
sample message blocks with column data
{begin}
:1:some text 1
:34:1234,00
:33:
In article ,
[EMAIL PROTECTED] (Timothy Johnson) writes:
>
>As far as I know, the #1 reason why people declare data structures
>explicitly is to avoid "uninitialized" messages while using warnings.
For scalars, sure, although the only time I really find that valid is
in a case like
my $w
No, you're right. It all depends on what the poster wanted to do with the
information after they got it. If they just want a list of the values
sorted, then sorting on "values %hash" would work. They said they wanted to
sort the hash by the values, and that's why I assumed that they still wante
As far as I know, the #1 reason why people declare data structures
explicitly is to avoid "uninitialized" messages while using warnings.
-Original Message-
From: [EMAIL PROTECTED] [mailto:peter@;psdt.com]
Sent: Thursday, November 07, 2002 5:11 PM
To: [EMAIL PROTECTED]
Subject: RE: Declari
Jessee Parker wrote:
> I am currently running this on Redhat Linux version 7.3 and using Perl
> version 5.8.0. I've tried different things - let the process run and
> process multiple batches of files and I have killed it with kill -9
> command on the pid and then restarted the program. First run
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Eric Ellsworth) writes:
>Right now the regexp I'm using is:
>
> /http:\/\/([^(\w*?\.?mysite\.com)]*)\//i
>
>but it does not match something it should, i.e.,
>
> http://www.reuters.com/otherstuff.
>
>Where am I going wrong?
perldoc per
I am currently running this on Redhat Linux version 7.3 and using Perl
version 5.8.0. I've tried different things - let the process run and process
multiple batches of files and I have killed it with kill -9 command on the
pid and then restarted the program. First run is always good - it sends out
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Colin Johnstone) writes:
>Here is how you declare hash.
>
>my %hash = ();
The "= ()" is entirely redundant. Just "my %hash" does exactly the same
thing.
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Colin Johnstone) writes:
>Gidday all,
>
>I assume when using die in this format I should see the error message.
>
>#!/usr/bin/perl
>
>use CGI qw( :standard );
>
>print header();
>$file1 = /web/schooled/www/news/subscribers_news1.txt
>
>open IN, "<
Timothy Johnson wrote:
>
> I guess it depends on whether you want the list of keys sorted by which
> has
> the highest value or the values themselves. The most common use of this
> for me is when I want to sort the keys or values of a hash using a hash
> reference, for example if I'm calculating
Jessee Parker wrote:
> Hi all,
>
> I have a script that basically waits for 2 files to be delivered to
> it,
> then it processes the 2 files, inserts them into the database and then
> starts sending information. After information is sent, it deletes the
> record from the database and incr
behold the power of open source..
http://danconia.org
Fred A. Romani wrote:
- Original Message -
From: Fred A. Romani
Sent: Thursday, November 07, 2002 1:22 PM
To: [EMAIL PROTECTED]
Subject: Congratulations List Members!
My background is Math, Sciences and Engineering. I like number
I guess it depends on whether you want the list of keys sorted by which has
the highest value or the values themselves. The most common use of this for
me is when I want to sort the keys or values of a hash using a hash
reference, for example if I'm calculating people's final scores for a
scorebo
Kurtis wrote:
> Hey Timothy,
>
> I couldn't get it to work...I know you can sort on keys, so I went
> out
> the cheap wayI switched the values with my keys...it's no problem
> because my values are unique also
>
why not just sort on the values?
foreach my $value (sort {$a <=> $
If you just want to make it harder, you can try "compiling" it with PerlApp
from ActiveState. Bear in mind, this will not make it impossible to see
your source, but it will make it difficult, since the source IS visible in
memory while your scripts are executing.
-Original Message-
From:
On Thu, 07 Nov 2002 12:25:12 -0800, [EMAIL PROTECTED] (John W. Krahn) wrote:
Thank you very much John.
>> My file is ~350MB. (not attached of course)
>> It has the structure as shown in the attachment [OrderSample.txt].
>> I have also attached an example of what the data should look like in
>
so if perlcc is not a good way to compile your perl source for *nix systems,
then what is?
dan
"Paul Johnson" <[EMAIL PROTECTED]> wrote in message
news:20021107205443.GA4209@;pjcj.net...
> On Thu, Nov 07, 2002 at 03:08:23PM -, dan wrote:
>
> > answering my own question, i read back the newsgr
Hi, I'm writing a program that parses through existing files on a website and
converts links to be rerouted through another program.
I'd like to skip external websites, and I'm having a bear of a time with the
matching string. Specifically, what I'd like to do is match any url that
includes:
Hi Chris,
> Just getting started trying to pull some data from a fairly simple access
> 97 database. What driver do I need to use to connect in this string..
>
> my $dbh = DBI->connect('DBI:?:framestats.mdb');
Connecting to an Access database on my box:
my $dbh = DBI->connect( "dbi:ODBC:Stud
Hi, i'm having problems with a perl 5.0.6 program in AIX 5.1
the message error is
Can't locate object method "new" via package "Net::FTP" at
/opt/adm/bin/transfer_unix line 33
i have already installed the package perl.libnet 1.7.3.0, but i'm still
having the same problem,
is there any newer
- Original Message -
From: Fred A. Romani
Sent: Thursday, November 07, 2002 1:22 PM
To: [EMAIL PROTECTED]
Subject: Congratulations List Members!
My background is Math, Sciences and Engineering. I like numbers. Because of that,
sometimes I undertake little projects that, although not earth
Hi-
I have used ODBC - works well. Post again if you
need samples/help setting up ODBC.
Aloha => Beau.
-Original Message-
From: Chris Benco [mailto:Chris.Benco@;austinpowder.com]
Sent: Thursday, November 07, 2002 7:08 AM
To: [EMAIL PROTECTED]
Subject: What driver to use with DBI for acce
Hi folks,
CPAN VIA EMAIL IS BACK ON THE AIR!
This past weekend my main server's hard drive melted down...
After many sleepless days and nights, she is alive and
well (of course, I had to upgrade to the latest SuSE 8.1,
and, boy, that led to problem after problem - please
email me if you are plann
Gidday All,
Im writing a double opt in newsletter subscription application. If I get sendmail to
send an email to someone, can I write a program to read their replys to enable them to
confirm their subscription automagically simply by replying to the email I sent them.
Is this the standard pra
On Thu, Nov 07, 2002 at 03:08:23PM -, dan wrote:
> answering my own question, i read back the newsgroup a little, and came
> across an article about perlcc. i tried this..
> perlcc -o output input.pl
> however, since my program uses DBI, the end compiled program reads:
>
> Connecting to SQL..
These requests should go to [EMAIL PROTECTED]
Cheers,
Kevin
On Thu, Nov 07, 2002 at 07:53:10AM -0800, Timothy Johnson ([EMAIL PROTECTED]) said
something similar to:
>
> I'd second that motion. There are a few addresses that I would have
> submitted in the past if I had known where to send the
http://search.cpan.org/author/IVAN/Net-SSH-0.07/SSH.pm
- Original Message -
From: "Pravesh Biyani" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 07, 2002 3:26 PM
Subject: auto ssh
> hi
>I am not sure if this question is suitable for this group.
> Pardo
hi
I am not sure if this question is suitable for this group.
Pardon me if its the wrong place.
Basically I want a perl script, which SSH to the remote machine, gives
the login, passwd and executes command at the remote machine.
How do i do this?
Pravesh
--
To unsubscribe, e-mail:
Philip Neukom wrote:
>
> Hi!
Hello,
> I have a huge print file in txt format that I would like to extract
> data from, export to a new text file and then import into a database.
> I am less concerned about efficiency as I am with getting this done
> quick and dirty.
That's fine, that is one of
Hi all,
I have a script that basically waits for 2 files to be delivered to it,
then it processes the 2 files, inserts them into the database and then
starts sending information. After information is sent, it deletes the record
from the database and increments a counter. I do a fork in the sub
[ Message rearranged in chronological order ]
[ Signatures and other non relevant stuff removed ]
Nikola Janceski wrote:
>
> > From: John W. Krahn [mailto:krahnj@;acm.org]
> >
> > Nikola Janceski wrote:
> > >
> > > I know there is a chmod function in Perl, but is there a
> > > chgrp function or
On Thu, Nov 07, 2002 at 01:26:22PM -, dan wrote:
> Is there some moderator or something of this board that can delete emails
> from the mailing list that haven't been used, or been retrievable, for a
> certain amount of time? I think it gets annoying when you post to the
> newsgroup, and then g
On Thu, 7 Nov 2002 11:04:26 -0800
Timothy Johnson <[EMAIL PROTECTED]> wrote:
>
> It sounds like the eval solution proposed earlier is exactly what
> you're looking for then. You can just store the string in your hash
> and eval it when you need to print.
Yup! With a little reworking of how I'
begin 644 OrderSampleFinished.txt
M*C$)4%=#+U!(5R!#55-43TU%4@DJ,S`W,#D)9&5S8W)I<'1I;VXQ"41E
Hi!
I have a huge print file in txt format that I would like to extract
data from, export to a new text file and then import into a database.
I am less concerned about efficiency as I am with getting this done
quick and dirty.
I am just starting out and am confused as hell. As the multitude of
wa
Just getting started trying to pull some data from a fairly simple access
97 database. What driver do I need to use to connect in this string..
my $dbh = DBI->connect('DBI:?:framestats.mdb');
I just need to pull a few bits and pieces of data out of this database for
use in another script. N
http://search.cpan.org/author/SDAGUE/ppt-0.12/bin/chgrp
- Original Message -
From: "Nikola Janceski" <[EMAIL PROTECTED]>
To: "'John W. Krahn'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, November 07, 2002 2:02 PM
Subject: RE: chgrp
> Facinating, so is that a no?
>
> > -Or
It sounds like the eval solution proposed earlier is exactly what you're
looking for then. You can just store the string in your hash and eval it
when you need to print.
-Original Message-
From: Tim Yohn [mailto:tyohn@;alabanza.com]
Sent: Thursday, November 07, 2002 10:54 AM
To: Timothy
Facinating, so is that a no?
> -Original Message-
> From: John W. Krahn [mailto:krahnj@;acm.org]
> Sent: Thursday, November 07, 2002 1:41 PM
> To: [EMAIL PROTECTED]
> Subject: Re: chgrp
>
>
> Nikola Janceski wrote:
> >
> > I know there is a chmod function in Perl, but is there a
> chgr
on do, 07 nov 2002 13:04:11 GMT, Dan wrote:
> It's occured to me with my perl program near completion, that the
> person that's "hosting" my program isn't.. let's say.. "trustworthy
> enough" to not steal source.
[...]
> Any clues as to where I go from here?
Find yourself a trustworthy person
Tim Yohn wrote:
>
> Hey All,
Hello,
> Is there an easy way to have variables in the value of a hash that are
> not populated until the value of the hash is used... for example:
>
> my($domain);
> my(%hash) = (
> 1 => "$domain"
> );
>
> print_domain("test.com");
>
> sub print_domain()
On Thu, 7 Nov 2002 10:35:22 -0800
Timothy Johnson <[EMAIL PROTECTED]> wrote:
>
> Then I guess the real question is why you are declaring two variables
> that you want to be concurrently updated when you can just use one.
>
Obviously I must not be able to explain what I am trying to
accomplish.
I think the line is supposed to be:
use Win32::ODBC;
Thanks,
Daryl J. Hoyt
Software Engineer
Geodesic Systems
< http://www.geodesic.com>
< mailto:djh@;geodesic.com>
-Original Message-
From: Angel Iliev Kafazov [mailto:angel.kafazov@;mail.bg]
Sent: Thursday, November 07, 2002 12:48 PM
on do, 07 nov 2002 17:13:22 GMT, Tim Yohn wrote:
> Hey All,
>
> Is there an easy way to have variables in the value of a hash that are
> not populated until the value of the hash is used...
my($domain);
my(%hash) = (
1 => '$domain'
);
print_domain("test.com");
sub
Hi,
I am trying to write a scipt which generates a web page based on a
information is ACCESS database. First, I need another script which hava
to pass the information (user ID) to the one which will actually display
the other page. I have to pass the infprmation only by clicking on a
particula
Nikola Janceski wrote:
>
> I know there is a chmod function in Perl, but is there a chgrp function or
> module?
perldoc -f chown
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Then I guess the real question is why you are declaring two variables that
you want to be concurrently updated when you can just use one.
-Original Message-
From: Tim Yohn [mailto:tyohn@;alabanza.com]
Sent: Thursday, November 07, 2002 10:19 AM
To: Timothy Johnson
Subject: Re: Population o
I don't see how that could possibly work, since you are declaring the value
of $hash{1} to be $domain, which has not been initialized. You are
declaring $hash{1} to be the VALUE of $domain. When you change $domain
later, this won't update your hash retroactively. Maybe this is just a typo
in yo
Hey All,
Is there an easy way to have variables in the value of a hash that are
not populated until the value of the hash is used... for example:
my($domain);
my(%hash) = (
1 => "$domain"
);
print_domain("test.com");
sub print_domain() {
my($domain) = @_;
print $hash{'1
I have found one work around, but I was hoping there would be some other
way..
perhaps this suggestion can make it into Perl 6?
current work around:
perldoc perlipc
search for "execute something without the shell's interference"
> -Original Message-
> From: Nikola Janceski [mailto:nikola
Here's my situation...
I have a command I need to run and parse the output of, BUT the command is
longer than 255 characters.
is there a way to use the PROGRAM LIST format for backticks or open the same
way you can for exec and system?
Nikola Janceski
There is no great concurrence between learni
Take a look at shroud
http://cpan.org/scripts/UNIX/System_administration/index.html
-Original Message-
From: dan [mailto:dan@;abovenet.org]
Sent: Thursday, November 07, 2002 8:04 AM
To: [EMAIL PROTECTED]
Subject:Securing/Encrypting Source
Hi again!
It's occured to me
I'd second that motion. There are a few addresses that I would have
submitted in the past if I had known where to send them...
-Original Message-
From: dan
To: [EMAIL PROTECTED]
Sent: 11/7/02 5:26 AM
Subject: Non valid emails
And another thing...
Is there some moderator or something o
answering my own question, i read back the newsgroup a little, and came
across an article about perlcc. i tried this..
perlcc -o output input.pl
however, since my program uses DBI, the end compiled program reads:
Connecting to SQL...
Undefined subroutine &DBI::dr::connect called at
/usr/local/lib/
Take a look at shroud
http://cpan.org/scripts/UNIX/System_administration/index.html
-Original Message-
From: dan [mailto:dan@;abovenet.org]
Sent: Thursday, November 07, 2002 8:04 AM
To: [EMAIL PROTECTED]
Subject:Securing/Encrypting Source
Hi again!
It's occured to me
I know there is a chmod function in Perl, but is there a chgrp function or
module?
I am using 5.6.1
Nikola Janceski
When choosing between two evils, I always like to try the one I've never
tried before.
-- Mae West (1892-1980)
---
I did a fresh instal of RedHat8.0, and a WHICH PERL returns /USR/BIN/PERL so I think
it is installed by default - you might look for it even if you did not specifically
request it be installed.
I could be totally out in left field, too.
Walt
>>> Charlotte Oliver <[EMAIL PROTECTED]> 11/06/02 1
From: Mark Goland <[EMAIL PROTECTED]>
> In my script I am need to send an explicit EOF to another program, I
> open inside my script. Something like this...
>
> open FH,"| prog that runs";
>
> print FH "blah blah";
>
> print FH "EOF" # send program EOF.
>
> I tryd closing the handle , but that
dan said:
> Hi again!
>
> It's occured to me with my perl program near completion, that the person
> that's "hosting" my program isn't.. let's say.. "trustworthy enough" to
> not steal source. So i'm looking for way(s) to secure/encrypt/compile my
> source so it can't be stolen. It's running on a
On Wed, 06 Nov 2002 10:17:00 -0600, [EMAIL PROTECTED] (Robert
Citek) wrote:
>>I am trying to take a file of variable length on a daily basis and
>>divide it up into 4 equal parts for processing on each file. Does
>>someone have an easy way to do this?
>Below is a sample script which may lead y
And another thing...
Is there some moderator or something of this board that can delete emails
from the mailing list that haven't been used, or been retrievable, for a
certain amount of time? I think it gets annoying when you post to the
newsgroup, and then get a few Mailer Daemon responses saying
Hi again!
It's occured to me with my perl program near completion, that the person
that's "hosting" my program isn't.. let's say.. "trustworthy enough" to not
steal source. So i'm looking for way(s) to secure/encrypt/compile my source
so it can't be stolen. It's running on a Linux system, with per
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to <[EMAIL PROTECTED]>
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address):
On Fri, Nov 01, 2002 at 11:15:15AM -0800, George Szynal wrote:
> For those who want/need to install a Perl app or extension without perturbing the
>default perl library tree.
> Possible reasons:
>1. Disambiguating the existing libs from your libs (for testing perhaps)
>2. Not wanting to or
Hi Javed
Try the following regex :
@testList =
("SDK_0.9.4.5_20020711_IR_DEV","SDK_0.9.4.5_20020711_IR","SDK0.9.4.5_2002071
1_IR_DEV") ;
foreach $testName(@testList)
{
if($testName =~ /^SDK[_0-9.]*_IR(_DEV){0,1}$/)
{
print "match successful for $testName ! :)\
72 matches
Mail list logo