Hello, I have this small C app that someone wrote for me ages ago, and
am tired of it breaking every time I move it around to various
systems, I will include it below.
I am hoping I can do this in perl, as a one liner, were it will read a
the first 4 bytes of a file, grab 4 bytes out of the
On Jul 29, 9:12 am, [EMAIL PROTECTED] (Epanda) wrote:
> Hi HappyTown
>
> I have seen your web link but I don't think it can show me the PID if
> I give the name of an existing and running Win NT application.
>
> On 28 juil, 05:24, [EMAIL PROTECTED] (Happytown) wrote:
>
> > On Jul 26, 3:14 am, [EMAI
On Tue, 2008-07-29 at 19:49 -0700, tvadnais wrote:
> Oops, thank you for catching that... I haven't gotten that far in my
> debugging.
>
> Unfortunately, my problem was with the "if (-e $filename)" always returning
> false. In the code I'm testing, I have the pgp commented out, because I
> can't
Oops, thank you for catching that... I haven't gotten that far in my
debugging.
Unfortunately, my problem was with the "if (-e $filename)" always returning
false. In the code I'm testing, I have the pgp commented out, because I
can't actually unencrypt the files because pgp can only be run by roo
On Tue, 2008-07-29 at 19:06 -0700, tvadnais wrote:
> Here is the true code if that helps:
> I've tried:
>
> foreach my $file ( @currset )
> {
> my $tmpstr = substr ($file, 0, index($file, ".pgp"));
> print ("trying to delete $tmpstr \n");
> ## pgp will core dump if there's already an unen
Somehow my response got mangled a tad. I'm editing the middle part:
..
and got the same results. (The test failed.)
I've tried:
(-e substr ($file, 0, index($file, ".pgp"))),
(-e $tmpfile), (-e "$tmpfile"),
(-e "$RDYdir\/$tmpfile"),
(-f $tmpfile),
(-e "F0715PAY.TXT") <--- This is the on
Ken,
Thank you for your quick response.
I changed the code from:
if (-e $tmpfile) {
to:
if (-f $tmpfile) {
and got the same results. (The test failed.)
(-e substr ($file, 0, index($file, ".pgp"))),
(-e $tmpfile),
(-e "$tmpfile"),
(-e "$RDYdir\/$tmpfile")
(-f $tmpfile)
(-e "F0715PAY.TXT") <
On 29 Jul., 17:40, [EMAIL PROTECTED] (Paul Lalli) wrote:
> On Jul 29, 8:46 am, [EMAIL PROTECTED] (Jan-Henrik) wrote:
>
> > I'm new to Perl and I have a simple question:
>
> Yes, but unfortunately it doesn't have a simple answer :-/
>
> > I ask for the entry of a number vie :
>
> > -
Jiancong,
Sorry to hear that you're having trouble using my module,
Shell::POSIX::Select. As stated in the BUGS section at the end of the
module's documentation, various versions of Text::Balanced and/or
Filter::Simple (on which Select depends) have limitations that can
affect the module's source-
On 29 juil, 17:40, [EMAIL PROTECTED] (Paul Lalli) wrote:
> On Jul 29, 8:46 am, [EMAIL PROTECTED] (Jan-Henrik) wrote:
>
> > I'm new to Perl and I have a simple question:
>
> Yes, but unfortunately it doesn't have a simple answer :-/
>
> > I ask for the entry of a number vie :
>
> > -
Hi HappyTown
I have seen your web link but I don't think it can show me the PID if
I give the name of an existing and running Win NT application.
On 28 juil, 05:24, [EMAIL PROTECTED] (Happytown) wrote:
> On Jul 26, 3:14 am, [EMAIL PROTECTED] (Epanda) wrote:
>
> > Hi,
>
> > I would like to know i
On 29 juil, 14:46, [EMAIL PROTECTED] (Jan-Henrik) wrote:
> Dear Group,
>
> I'm new to Perl and I have a simple question:
>
> I ask for the entry of a number vie :
>
>
> #!/usr/bin/perl -w
> use strict;
>
> my $foo;
> print "Enter number: ";
> $foo = ;
> comp
On Tue, Jul 29, 2008 at 2:32 PM, tvadnais <[EMAIL PROTECTED]> wrote:
> I am totally confounded by what appears to be a bug in the "does file
> exist"
> functionality.
>
>
>
> Here is the code as it stands now:
>
> my $tmpfile = substr ($file, 0, index($file, ".pgp"));
>
> print cwd(); ## d
I am totally confounded by what appears to be a bug in the "does file exist"
functionality.
Here is the code as it stands now:
my $tmpfile = substr ($file, 0, index($file, ".pgp"));
print cwd(); ## debug code: to make sure we're in the correct
directory
chomp($tmpfile); ## debug code
Rob Dixon schreef:
> my $contents = do {
> open my $fh, $source_file or die $!;
> local $/;
> <$fh>;
> };
That has the file's contents in memory twice. This is leaner:
my $contents;
{
open my $fh, $source_file or die $!;
local $/;
$contents = <$fh>;
};
--
Affi
On Jul 29, 12:21 pm, [EMAIL PROTECTED] (Aruna Goke) wrote:
> Jan-Henrik wrote:
> > Dear Group,
>
> > I'm new to Perl and I have a simple question:
>
> > I ask for the entry of a number vie :
>
> >
> > #!/usr/bin/perl -w
> > use strict;
>
> > my $foo;
> > pri
Jan-Henrik wrote:
Dear Group,
I'm new to Perl and I have a simple question:
I ask for the entry of a number vie :
#!/usr/bin/perl -w
use strict;
my $foo;
print "Enter number: ";
$foo = ;
comp($foo);
Now I would
Jan-Henrik wrote:
Dear Group,
I'm new to Perl and I have a simple question:
I ask for the entry of a number vie :
#!/usr/bin/perl -w
use strict;
my $foo;
print "Enter number: ";
$foo = ;
comp($foo);
Now I would
On Tue, Jul 29, 2008 at 05:46:09AM -0700, Jan-Henrik wrote:
> Now I would like to check wether the user really entered a number and
> not letters. What would a check like that look like? A regular
> expression like this:
>
> unless ($foo =~ /[a-zA-Z\D+][^.]
On Jul 29, 8:46 am, [EMAIL PROTECTED] (Jan-Henrik) wrote:
> I'm new to Perl and I have a simple question:
Yes, but unfortunately it doesn't have a simple answer :-/
> I ask for the entry of a number vie :
>
>
> #!/usr/bin/perl -w
> use strict;
>
> my $
> "peng" == peng kyo <[EMAIL PROTECTED]> writes:
peng> You may need srand before the rand function.
Not in any version of Perl released in the past 8 years or so.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> http://www.stonehenge.com/mer
Dear Group,
I'm new to Perl and I have a simple question:
I ask for the entry of a number vie :
#!/usr/bin/perl -w
use strict;
my $foo;
print "Enter number: ";
$foo = ;
comp($foo);
Now I would like to check wethe
If I use lwp-rget to retrieve a Web site, will it retrieve new pages
added that may not be linked to?
For example, the site www.123.com is composed of 10 pages, each of
which is accessible through links on the site.
But, two pages are added in the span of three days.
www.123.com/fourteen-five.js
Hi all:
When I install the “Shell-POSIX-Select” module into my system, I
got the following error message from screen. After I searched on
internet, I found any useful messages to resolve it. Could you tell me
how to resolve it or where to find some useful messages. Thanks a
lot.
PERL_
24 matches
Mail list logo
