Perl sucks...go Ruby...I did and I am much happier!
- Original Message
From: Michael Alipio
To: Perl Beginners ; John W. Krahn
Sent: Tuesday, April 14, 2009 10:06:39 AM
Subject: Re: Turn off $ anchor greedy behavior
Aha, found it.. The split returned a list and you've just sliced it
- Original Message
From: pouliakhina
To: beginners@perl.org
Sent: Saturday, February 7, 2009 8:59:56 AM
Subject: bash in perl
Hello,
I try to write the name of the current directory in $x:
$x = system ("pwd");
But it doesn't work. It also doesn't work in all these combinations:
$x =
Are any of these calls deprecated or not recommended?
If so, what is recommended regardless of context.
sysopen INFILE, \"/dev/vpathXXX\", 0; \$i=0; sysseek(INFILE, 0, 0);
while(sysread INFILE, \$buf, 1) {sysseek(INFILE,268435456,1);
thank you!
--
To unsubscribe, e-mail: [EMAIL PROT
Greetings,
I posted this question on perlmonks and received some great help, specifically
from mirod but his recent suggestion is still not working.
Problem: This code only works when I hard-code the size to
search for in the routine. I try to pass arguments using @_, but it
does not work. How
On Thu, May 15, 2008 at 3:45 PM, Dr.Ruud <[EMAIL PROTECTED]> wrote:
> It contains a lot of bad advice too.
You have been helpful in the past so please be so kind to point out
the *bad Advice*... Just saying it's bad really helps no one on a
"beginners" list. The way I see it, people will read that
Does anyone know what happened to this website:
http://web.archive.org/web/20041123005900/http://www.raycosoft.com/rayco/support/perl_tutor.html
It says its not available. I thought it was a great reference and explained
the diffs between map and grep and even sort.
Does anyone have a softcopy o
lients/0x001321EAA5D2/recovery/2007-10-16,23:39/flist
/var/opt/ignite/clients/0x00306E4B4C3A/recovery/2008-01-15,09:44/flist
/var/adm/sw/save/PHCO_34255/VXVM-RUN/etc/vx/static.d/build/vold.o
- Original Message
From: oryann9 <[EMAIL PROTECTED]>
To: Perl List
Sent: Thursday, January 31, 20
Hello List,
I am hoping for some help with this. I did post this same question to PerlMonks.
Undefined format "STDOUT" called at find_hog.tdy line 173.
Line 173 is the 1st write statement, but since there are snips in there 173 is
not the actual line in this email.
Just look for 1st write state
Original Message
From: Randal L. Schwartz <[EMAIL PROTECTED]>
To: oryann9 <[EMAIL PROTECTED]>
Cc: Perl List
Sent: Thursday, January 17, 2008 7:04:40 PM
Subject: Re: find2perl
>>>>> "oryann9" == oryann9 <[EMAIL PROTECTED]> writes:
oryan
- Original Message
From: Randal L. Schwartz <[EMAIL PROTECTED]>
To: oryann9 <[EMAIL PROTECTED]>
Sent: Thursday, January 17, 2008 6:39:35 PM
Subject: Re: find2perl
The following message is a courtesy copy of an article
that has been posted to perl.beginners as well.
&g
-
Will anyone help me with this issue? These three lines of code work,
but work in a way that I am not expecting. When I tell this module to set
no_chdir to 1 it should NOT descend directories yet it does. Am I
supposed to have a wanted routine other than whats below? Below are the 3
lines I h
- Original Message
From: oryann9 <[EMAIL PROTECTED]>
To: beginners@perl.org
Sent: Friday, January 11, 2008 2:32:11 PM
Subject: Re: find2perl
>You're misusing it. Set it within the wanted() routine when you're
>looking at
>a directory that you don't want
>You're misusing it. Set it within the wanted() routine when you're
>looking at
>a directory that you don't want to descend. It'll be cleared to 0
>before
>calling wanted(), so setting it before calling find() is completely
>useless.
>--
>Randal L. Schwartz - Stonehenge Consulting Services,
Happy New Year.
I have a series of values with the following form:
TO_Chr10_final.txt
I would like to obtain the value 10, for accounting purposes:
my $chr = ( split /_/ , $value ) [ 1 ] ;
$chr =~ /chr/i ;
$chr = $' ;
This seems convoluted. Could someone please criticize this approach or
off
oryann9> No, but good point. My intent was to determine when -prune was
set on
oryann9> the CLI what the De-parsed code told me, 1==true, 0==false
because
oryann9> when I run this code below prune = 0 is not working, its
descending
oryann9> down "/".
You're misu
oryann9> $ find2perl /dirname -size +4092k -ls -prune
Since -prune is *after* the condition of -size, you're setting
prune only for VERY VERY LARGE directories. Is that your
intent?
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTE
In find2perl, prune is set to 1 for true as in DO NOT desend dirs? From the
man page "-prune"
Do not descend into the directory currently matched.
Likewise for File::Find prune set to 1?
$ find2perl /dirname -size +4092k -ls -prune
thank you
___
Perl'ers,
In my code I call a find routine called xyz based on what the user enters which
can be "/" or /\w+.
Instead of having one block of code and another block of the same code, but
with $File::Find::prune = 1;
can't I just pass this $File::Find::prune = 1; to my single find routine based
Why not just create a message filter or rule or whatever Outlook calls
it (or multiple ones for various criteria)?
>
>
I did and it I cannot get it to work.
Be a better pen pal.
Text or chat wit
Tom
I thought taking a string and assigning it to an array would do it
and I was wrong.
Here is a sample line of source;
"2004-08-03 23:57 1,712,128 GdiPlus.dll" and the
recommended split gives me 13 for the number of items. I would like
an array that has "2004-08-03", "23:57","1
- Original Message
From: oryann9 <[EMAIL PROTECTED]>
To: Perl List
Sent: Thursday, November 1, 2007 1:02:35 PM
Subject: Re: outlook module
> I am looking for some humble advice. I keep getting annoying emails
using the mail client 'Outlook 2003 SP2.' These message
> I am looking for some humble advice. I keep getting annoying emails
using the mail client 'Outlook 2003 SP2.' These messages are intended for
another
> person in my company with the same name as I. Not to my
surprise, the email support group decided to give this person an email address
that
All,
I am looking for some humble advice. I keep getting annoying emails using the
mail client 'Outlook 2003 SP2.' These messages are intended for another person
in my company with the same name as I. Not to my surprise, the email support
group decided to give this person an email address that
is there a way to get the "nth" column of a string in perl, similar to
awk '{print $col_no}' in awk ?
###
There are multiple ways, but here are two examples:
In the first example, split is what you need to pay attention to.
In the second example, @F is the key here.
What output do you get when you don't turn off debug?
--
I found what is causing this, $query is 'undef'
So was it the intent of the person who wrote this module to have this
code act in this way?
Do you have a recommendation on how to make this more usable in terms
of success/failure lookups
> Why is it when I turn off debug mode, I get no output?
What output do you get when you don't turn off debug?
--
I found what is causing this, $query is 'undef'
So was it the intent of the person who wrote this module to have this code act
in this way?
Do you have a recommendation on how t
All,
Why is it when I turn off debug mode, I get no output?
I was expecting output similar to what nslookup shows for a simple query. My
goal is to look up by NAME and by IP within 2 domains to determine success and
failure.
use strict;
use warnings;
use Carp;
my $res = Net::DNS::Resolver-
--- Lawrence Statton <[EMAIL PROTECTED]> wrote:
> > I read the CPAN module DBD::CSV and still had some
> > questions.
> >
> > 1)Does this create a "in memory" database with
> data
> > from the spreadsheet for manipulation?
>
> What did reading the source tell you?
>
> >
> > 2)This is really c
> Something like
> #!/usr/bin/perl
> use strict;
> use DBI;
>
> my $dbh =
> DBI->connect("DBI:CSV:f_dir=/dir/with/the/csvs")
> or die "Cannot connect: " . $DBI::errstr;
>
> $dbh->{'csv_tables'}->{'SomeName'} = { 'file' =>
> 'SomeName20070827.csv'};
> # tie the table name to the filenam
Anyone from this list going?
How much was it last year for entry? It does not say
how much it is yet at http://pghpw.org/ppw2007/.
:)
Shape Yahoo! in your own image. Join our Network Research Panel today
--- "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> wrote:
> On Aug 13, 9:33 pm, [EMAIL PROTECTED] (Oryann9)
> wrote:
>
> > From the Perl Review and my understanding as well,
> use
> > Carp with keywords carp and croak is supposed to
> > provide a
--- Paul Lalli <[EMAIL PROTECTED]> wrote:
> On Aug 13, 2:39 pm, [EMAIL PROTECTED] (Robert Hicks)
> wrote:
> > I typically "use Carp;" and change my "die" and
> "warn" statements to
> > "croak" and "carp". I have read a couple places
> croak/carp are a little
> > better at telling you what and whe
> > like to know why this isn't working. The snippet
> of code in question
> > is as follows
> >
> >
> > if($ARGV[2] =~ /port/i && $ARGV[3] =~ /nick/i)
> > {
> >
>
> Well, on a hunch I'd say that snippet returns false
> because either
> $ARGV[2] doesn't match /port/i, or because $ARGV[3]
> doe
> > Just be curious to see how do you guys use Perl
> for work.Would you be
> > pleased to give a vote below?
> >
> > [a] CGI/Web Development
> > [b] System Administration
> > [c] mod_perl -- write Apache handler
> > [d] write commercial products
> > [e] Biological analysis
> > [f] others
>
a an
Trying to understand from perldoc perldata the diff
between these 3 CLIs and why the 2nd CLI has no
elements?
$ perl -le 'use Data::Dumper; @c = (0,1)[1]; print
Dumper([EMAIL PROTECTED]);'
$VAR1 = [
1
];
$ perl -le 'use Data::Dumper; @c = (0,1)[2]; print
Dumper([EMAIL PROTECTED]
-
> No, it is a hash slice.
>
> my %foo;
> @foo{ qw / one two three / } = qw / uno dos tres / ;
>
> is equivalent to
>
> my %foo = ( one => 'uno',
> two => 'dos',
> three => 'tres' );
>
> is equivalent to ...
>
> my %foo;
> $foo{one} = 'uno';
> $foo{two} =
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Time::Local;
>
> my %month;
> @month{ qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct
> Nov Dec/ } = 0..11;
>
> my $date = "Thu Mar 9 23:04:03 2006";
>
> my (undef, $month, $day, $h, $m, $s, $year) = split
> /\W+/, $date;
>
> my $time =
> time
I am running this command:
$ perl -MCPAN -e 'install Bundle::CPAN;'
and it hangs on the taint check. So I tried it
manually and was receiving permission denied errors.
See the bottom.
snip
Checking if your kit is complete...
Looks good
Writing Makefile for Cwd
CPAN: YAML loaded ok (v0.65)
snip
> When I see code that starts with:
>
> require 5.6.0;
>
> Does that mean that the version of Perl can be 5.6.0
> and above or that
> it *has to be* 5.6.0?
...that version and above
see the output from;
perldoc -f require
___
--- "Randal L. Schwartz" <[EMAIL PROTECTED]>
wrote:
> > ""Jeff" == "Jeff Pang" <[EMAIL PROTECTED]>
> writes:
>
> "Jeff> May you need eval?Like,
>
> No. Wrong direction for a solution. Don't suggest
> things like this. Plenty
> of proper answers elsewhere in the thread, so I
> won't repea
You have to add UserModeTime and KernelModeTime then
divide by 10,000,000.
See:
http://www.microsoft.com/technet/scriptcenter/resources/qanda/sept05/hey0922.mspx
use Win32::Process::Info;
use Data::Dumper;
my $pi = Win32::Process::Info->new ();
my @process_information = $pi->GetProcInfo(3692);
> #!c:/perl/bin/perl.exe
> # This is a test scrip
> use Win32::Process::Info;
> use warnings;
> use strict;
> my $pi = Win32::Process::Info->new ();
> my @process_information = $pi->GetProcInfo(4488);
> ## 4488 is pid of a
> particular process.
> foreach $info (@process_information) {
>
--- Octavian Rasnita <[EMAIL PROTECTED]> wrote:
> Hi,
>
> You need to use:
>
> $ftp->get("/path/to/remote/file",
> "/path/to/local/destination_file");
>
> Octavian
>
Also you can use
$remotedir = qq(/path/to/remoteserver/dir/);
$sftp->cwd($remotedir) || die "CWD to folder outbound
failed!:
--- a_arya2000 <[EMAIL PROTECTED]> wrote:
> Hello, does anyone know what is the most effective
> way
> of uninstalling perl module? Thank you.
>
Why would you want to do such a thing? Just take the
path to this module out of @INC by editing your
.profile and or PERL5LIB variable, unless you thi
ok must of missed it. sorry.
Got a little couch potato?
Check out fun summer activities for kids.
http://search.yahoo.com/search?fr=oni_on_mail&p=summer+activities+for+kids&cs=bz
--
To unsubscribe, e
So you are using the binary ^ to encrypt with XORED
together bit by bit? Please explain?
thank you.
$/etc/skel
$ perl -le 'print "hello" ^ "X";'
0=447
$ perl encrypt.plx file2
plaintext:
hello
encryptedtext:
0=447R
decryptedtext:
hello
Also noticed I could use binary &
> >
> > > > #!/usr/bin/perl
> > > >
> > > > use strict;
> > > > use warnings;
> > > >
> > > > my $plaintext = do { local $/ = undef; <> };
> > > > my $pad = "X" x length $plaintext;
> > > >
> > > > my $encryptedtext = $plaintext ^ $pad;
> > > > my $decryptedtext = $encryptedtext ^ $pad;
> >
--- oryann9 <[EMAIL PROTECTED]> wrote:
>
> > > #!/usr/bin/perl
> > >
> > > use strict;
> > > use warnings;
> > >
> > > my $plaintext = do { local $/ = undef; <> };
> > > my $pad = "X" x length $pl
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > my $plaintext = do { local $/ = undef; <> };
> > my $pad = "X" x length $plaintext;
> >
> > my $encryptedtext = $plaintext ^ $pad;
> > my $decryptedtext = $encryptedtext ^ $pad;
> > print
>
"plaintext:\n$plaintext\n\nencrypted
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $program = "vi";
> my $status = `/bin/ps cat | /bin/grep $program`;
>
> if ( length($status) > 0 ) {
> print "$status"; #extract
> pid from here
> }
> else { print "$program not running\n" }# start
> program
>
> =
In this code:
BEGIN {
use Fcntl ':flock';
open( DATA, qq(C\:\\temp\\file.txt) )
or die "file handle was not opened: $!";
for my $foo () {
print $foo;
}
flock DATA, LOCK_EX | LOCK_NB or exit 0;
}
Is there anything more one could add to this statement
from the Co
> Oddly, there's a uri_unescape_utf8 but no
> uri_unescape_utf8 provided
> by URI::Escape.
>
> However combining URI::Escape::uri_unescape() and
> Encode::decode_utf8()
> in one statement is not overly taxing.
>
> use Encode;
> use URI::Escape qw(uri_unescape);
> my $e_accute = decode_utf8 uri_un
'msgagt=ESM_WMB_AIX,sec_id=Sec_id,severity=Low,node=test,msgnode=qwmbap01.cardinalhealth.net,utc={2007-04-26
18:01:59.472+00:00},om={UID=3a7affd6-f420-11db-80b1-,AlertCode=AEM001,AlertType=AEM-default,AppName=AEM-CommonService2,Message=5004:An
error has been reported by the BIPXML4C
com
> Since you haven't provided the original data, it's a
> bit difficult to
> give advice. There's nothing here, for instance, to
> show what you hope
> to gain by splitting the string into characters. It
> looks to me like
> you have CSV and want to split on the commas:
Jay the original data I pos
> > > Now I am trying to break up string into
> individual
> > > chars, but this does not seem to work:
> > snip
> >
> > The idiomatic way is
> >
> > for my $chr (split //, $str) {
> > }
>
> Funny I had to explain split /|/, $str returning an
> array of characters.
>
> --
> Ken Foskey
> FOSS
> > Now I am trying to break up string into individual
> > chars, but this does not seem to work:
> snip
>
> The idiomatic way is
>
> for my $chr (split //, $str) {
> }
ok thanks for this code, but that produces the same
output as the unpack. :)
The original code (\w+\=\w+,) seems work but is
g
>
> The strings I need out of this are:
>
> msgagt=ESM_WMB_AIX
>
> sec_id=Sec_id
>
> severity=Low
>
> msgnode=qwmbap01.cardinalhealth.net
>
> utc={2007-04-26 18:01:59.472+00:00}
>
> om={
>
> UID=3a7affd6-f420-11db-80b1-
>
> AlertCode=AEM001
>
> AlertType=AEM-default
>
> AppN
I have this block of text:
Node: dudbqa02 Message group: MoM_OpC_ADM-m-s
Application: OGTP Object:syslog Severity:
Critical Text: WebSph
ere Broker v6003[2998366]:
(QWMB01.EG500)[8225]BIP2951I: Event generated by user
code. Additional information :
'msgagt=ESM_WMB
> > Why are you creating these regexes so far from
> where
> > they are used?
> > If you are going to do this at least give them
> > meaningful names.
I dont have a good reason Chas other than I like the
ability to easily change the variable in one spot in
case of future use.
If this is not a goo
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my @a = qw(abc def ghi);
>
> for my $s (@a) {
> $s =~ /(b)|(e)|(h)/;
> print "1 => [$1] 2 => [$2] 3 => [$3]\n";
> }
>
Thank you for the kind replies. I understand now and
have modified the code to:
use strict;
use warnings
Please advise on the small amount of code b/c I am
getting the message as below, but the code is working
and output how I want it, just trying to rid of
messages.
thank you!
Use of uninitialized value in concatenation (.) or
string at
JFS_version_parser.pl line 20, line 952 (#1)
Use of uniniti
--- Chas Owens <[EMAIL PROTECTED]> wrote:
> On 4/20/07, John W. Krahn <[EMAIL PROTECTED]> wrote:
> snip
> > You are omitting one critical argument. For
> people who are stuck with older
> > versions of Perl and in your grep() example above
> the foreach expression
> > creates its list in memory w
--- Chas Owens <[EMAIL PROTECTED]> wrote:
> On 4/19/07, John W. Krahn <[EMAIL PROTECTED]> wrote:
> > Chas Owens wrote:
> > > Yes, foreach was aliased to for for backwards
> compatibility,
> >
> > Huh? Do you have something to back up that claim?
>
> Well, perlsyn* says
>The "foreach" key
> "Mumia W." schreef:
>
> > my $lang = ($topdir =~ /([^\/]+)$/)[0];
>
> ITYRMSL:
>
> my ($lang) = $topdir =~ m~([^/]+)$~;
>
> --
Dr Rudd,
I have never seen the expression m~ or $~
Will you tell me what this is and what is says?
thank you
>
> I am trying to select items from a table where the
> miles field is not
> null or blank and the below statement does not work.
> Does anyone have
> any suggestions?
> @resultkeys =
> ("Date","People","Miles","Savings");
>
> $sql = "SELECT c.objectid,c.dateadded as
>
>
> It works fine with 5.8.8 on my Fedora Core 5:
>
> $ perl -e 'for ("","abc\n","def","hij\n"){print;
> warn tell STDOUT,"\n"}'
> 0
> abc
> 4
> 7
> defhij
> 11
> $
>
Does not seem to be accurate on this platform???
$ uname -a
CYGWIN_NT-5.1 dubmdsmith10 1.5.24(0.156/4/2)
2007-01-31 10:57 i686
$field =~ s/\b(.)(.*?)\b/\u$1\L$2/g;
$record .= "$field|";
**
Is this regex s/\b(.)(.*?)\b/ saying boundry between
any character zero or more times in $1 up to
everything else non-greedy end word boundry in $2
sort of confused since your end goal is to CAPS first
letter i
---
>
> Perl doesn't have the "switch" control statement.
> But you can get it by looking at CPAN:
>
http://search.cpan.org/~rgarcia/Switch-2.13/Switch.pm
>
To share some information in the up-incoming Perl 5.10
there will be a replacement for the switch clause.
The given-when is the Perl answe
> But this is all fairly complicated stuff and
> probably a little advanced
> for a beginners list. You might find more joy
> asking on
> comp.lang.perl.moderated, or perlmonks.
>
> --
> Paul Johnson - [EMAIL PROTECTED]
yes but there are a lot of advanced members on the
list. ok thanks for r
In "The Perl Review" spring 07 page 10 it states:
"With Perl 5.10 I can write my own lexical pragmas.
In fact, feature was implemented this way. The
%^H special variable lets me attach "references" to
the optree, which I can then inspect with caller.
Perl passes this information as a new item in t
--- Jay Savage <[EMAIL PROTECTED]> wrote:
> On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote:
> >
> > > This really isn't a Perl question, though. If
> you
> > > have questions about
> > > dynamic vs. static linking, and why you might
> w
> This really isn't a Perl question, though. If you
> have questions about
> dynamic vs. static linking, and why you might want
> to do one or the
> other, you should probably pick up a good book on C
> and/or the C
> compiler on your system.
>
> HTH,
>
> -- jay
thank you for responding, howev
--- Chas Owens <[EMAIL PROTECTED]> wrote:
> On 3/22/07, oryann9 <[EMAIL PROTECTED]> wrote:
> snip
> > Am I linked to libc.a?
> snip
> >libc=/usr/lib/libc.a, so=dll, useshrplib=true,
> libperl=libperl.a
> snip
>
> It looks like it. My perl says
&
On this FAQ I read:
If you're currently linking your perl executable to a
shared libc.so, you can often gain a 10-25%
performance benefit by rebuilding it to
link with a static libc.a instead. This will make a
bigger perl exe-cutable, but your Perl programs (and
programmers) may thank you for it.
> oryann9> All,
> oryann9> Is the Perl template toolkit a popular tool
> to use for
> oryann9> mid tier to senior Perl developers?
>
> I'm about as senior as they get for Perl developers
> {grin}, and it's clearly
> my templating language of choice.
&
All,
Is the Perl template toolkit a popular tool to use for
mid tier to senior Perl developers?
Reason I ask is because from the description it states
"And because it has its own simple templating
language, templates can be written and edited by
people who don't know Perl."
Among the many
My goal is to correlate the data in 2 arrays into a
HoH or a HoA so that when I print this data in an HTML
table so it comes out correctly.
snippet...
my (@weeks, @weeks1, @weeks_AoA,) = ((),(),());
## Set up array with dates minus 15 days and plus 15
days from current date ##
foreach $day ('
Yes I understand now. For some reason I missed the
missing quotes in the original post and the word token
came to mind.
$ perl -MO=Deparse foo.plx
BEGIN { $^W = 1; }
use diagnostics;
sub abc {
use warnings;
use strict 'refs';
'abc.';
}
sub e {
use warnings;
use strict 'ref
> $_=abc.e.i;
>
> This is short for:
>
> $_ = 'abc' . 'e' . 'i';
>
> Which is the same as saying:
>
> $_ = 'abcei';
>
Why is $_=abc.e.i short for
$_ = 'abc' . 'e' . 'i';
Is it b/c each group of characters is a 'token'
including the periods?
abc => token
. =>
> More than this I cannot offer. I don't know what
> range of values your
> $dayofweek variable holds so I can't even guess what
> to code.
>
> Rob
>
No abuse was intended. Sorry. I like to send my
thoughts on what to do for code to the list to see if
I get any feedback regardless of whether th
g anyone off. I am a nice person
who has a drive to master Perl, but at the same time I
feel as if this list is against me b/c I do not write
my questions in the most ideal way.
derek (oryann9 => my all white cats name)
:)
_
--- Chris Charley <[EMAIL PROTECTED]> wrote:
>
> > This is creating a anonymous hash, correct?
>
> This is saying
> print unless the first field has been seen before
>
> which is what he wants his code to do.
>
> $h is a good short notation - but using %seen
> instead of %h may make it clearer
--- Chas Owens <[EMAIL PROTECTED]> wrote:
> On 2/27/07, Keenan, Greg John (Greg)** CTR **
> <[EMAIL PROTECTED]> wrote:
> > Hi,
> >
> > I have to combine several Unix password files and
> remove any duplicate
> > accounts - putting this into LDAP.
> >
> > I have the following code that will remove
--- zentara <[EMAIL PROTECTED]> wrote:
> On Wed, 28 Feb 2007 12:10:36 -0800 (PST),
> [EMAIL PROTECTED] (oryann9)
> wrote:
>
> >Will anyone offer some kind help?
>
> See:
> http://perlmonks.org?node_id=599419
>
> Or groups.google.com for "perl html c
--- oryann9 <[EMAIL PROTECTED]> wrote:
> --- Tom Phoenix <[EMAIL PROTECTED]> wrote:
>
> > On 2/27/07, oryann9 <[EMAIL PROTECTED]> wrote:
> >
> > > Problem: cgi calender daynames are not matching
> up
> > > with dates. For example: Today
--- Tom Phoenix <[EMAIL PROTECTED]> wrote:
> On 2/27/07, oryann9 <[EMAIL PROTECTED]> wrote:
>
> > Problem: cgi calender daynames are not matching up
> > with dates. For example: Todays date 02/27/2007 is
> > being printed under Thursday instead of Tuesday.
--- oryann9 <[EMAIL PROTECTED]> wrote:
> All,
>
> I am having an issue getting my cgi calender to
> print
> correctly. Any help or hints would be appreciated!
> I was thinking of manipulating the @weeks_anonymous
> array with select dayofweek(curdate()) rather th
All,
I am having an issue getting my cgi calender to print
correctly. Any help or hints would be appreciated!
I was thinking of manipulating the @weeks_anonymous
array with select dayofweek(curdate()) rather than
using hardcoed undef's
Problem: cgi calender daynames are not matching up
with date
Any hints or pointers would be appreciated! thank you
When the dates change my calendar gets thrown off. The
daynames and dates are not matching up. I tested this
by simply adding and subtracting 1 from the SQL call
curdate() +1 or curdate() -1. Shouldn't I be able to
manipulate the @weeks_anonymo
Hello...: )
I am having issues sending mail from within a perl script on an intel using
the cygwin platform; the code is simply not sending email.
CYGWIN_NT-5.1 laptop 1.5.23(0.156/4/2) 2006-12-19 10:52 i686 Cygwin
snippet...
qx(/usr/sbin/ssmtp $user < $log);
system("/usr
Jay Savage <[EMAIL PROTECTED]> wrote:On 2/1/07, oryann9 wrote:
> oryann9 wrote: Hello Perl list,
>
[snip]
>
> I was able to figure it out. The solution was /s.
> my $regexp = qr/.*\x3a5101.*/s;
>
> However, when I put multiple port numbers in the regexp it does NOT w
oryann9 <[EMAIL PROTECTED]> wrote:Hello Perl list,
I need to grab from an intel machine all lines with :5101 from netstat -a.
If I dont group the regexp using parens then it prints all the needed lines.
If I group the regexp using parens then it does not print all the needed lines.
An
Hello Perl list,
I need to grab from an intel machine all lines with :5101 from netstat -a.
If I dont group the regexp using parens then it prints all the needed lines.
If I group the regexp using parens then it does not print all the needed
lines.
Any help and an explanation...I am c
"John W. Krahn" <[EMAIL PROTECTED]> wrote:oryann9 wrote:
> In this regexp
>
> my $regexp = qr/(\d+\x3a1108
> |\w+\x3a1108{1,} ) /;
>
> vs.
>
> my $regexp1 = qr/(\d+\x3a1108
> |\w+\x3a1108){1,} /;
>
> does the {1,} construct outside the p
In this regexp
my $regexp = qr/(\d+\x3a1108
|\w+\x3a1108{1,} ) /;
vs.
my $regexp1 = qr/(\d+\x3a1108
|\w+\x3a1108){1,} /;
does the {1,} construct outside the parens () mean the entire string 1 or
more times and within the parens mean only the la
Is there a way to block certain ports using Perl?
If so please send me snippet sample code and or recommend module name to get
me started.
thank you
-
Finding fabulous fares is fun.
Let Yahoo! FareChase search your favorite travel sites to find flight
HoH
'jblow' => {
'uid' => '2195',
'gecos' => 'Joe Blow,,,',
'gid' => '20'
},
snippet.
( $name, $p, $uid, $gid, $gecos, $dir, $s ) = split( ':' );
$hash1{$name} -> {'uid'
"Dr.Ruud" <[EMAIL PROTECTED]> wrote:oryann9 schreef:
> "Dr.Ruud" wrote: beast schreef:
>> beast:
>>> a 100
>>> a 102
>>> c 100
>>> a 102
>>> b 111
>>> c 100
>>> c 102
>>> c
HoH
'jblow' => {
'uid' => '2195',
'gecos' => 'Joe Blow,,,',
'gid' => '20'
},
snippet.
( $name, $p, $uid, $gid, $gecos, $dir, $s ) = split( ':' );
$hash1{$name} -> {'uid'}
HoH
'jblow' => {
'uid' => '2195',
'gecos' => 'Joe Blow,,,',
'gid' => '20'
},
snippet.
( $name, $p, $uid, $gid, $gecos, $dir, $s ) = split( ':' );
$hash1{$name} -> {'uid'}
1 - 100 of 115 matches
Mail list logo
