indow/ from it.
> how can it is possible ?
> for example -
>
> open ( F1 ,"file.txt") || die "$!";
>
> $a=;
>
> if (/window/i){print
> "it is present\n";
> }
>
>
>
--
Ian
http://www.cicsworld.com
On Mon, Oct 19, 2015 at 9:46 AM, Shlomi Fish <shlo...@shlomifish.org> wrote:
> Hi Ian and Prashant and all,
>
> On Mon, 19 Oct 2015 09:28:15 -0500
> Ian <pcs...@gmail.com> wrote:
>
> > Take a look at File::Slurp.
> >
>
> Just for the record, using
Angela,
ActiveState offer professional service:
http://www.activestate.com/support/open-source-consulting
and Cambria.com.
I cannot vouch for either but I looked at them awhile ago.
Ian
On Tue, Oct 1, 2013 at 4:37 PM, Angela Barone
ang...@italian-getaways.comwrote:
Hello,
I don't
Sadly the great work Casey West and Kevin Meltzer did by starting a perl
beginners list was tainted by individuals like Randal Schwartz. I was a
direct target of this bullying
Randal is arrogant and a bully and is the reason why I moved on from this
list years ago.
Ian
Randal If you imply that you have a proven solution, you are lying to
them. I ask
Randal that you don't lie in that way.
http://www.nntp.perl.org/group/perl.beginners/2009/08/msg108718.html
Ian I did NOT lie, nor did I mislead the list in anyway by supplying code that
Ian did not work.
Ian Each
. As an insult.
The code did work. that was the crux of the matter.
If you are to arrogant to verify it, do not assume.
Here we have a whole thread dedicated to bullying and still you don't get
it.
Ian
hi, a few days ago, I purchased several Christmas gifts from a
bussiness company, because all products in discount season, very
affordable, you can go to brow: mobilesoso.com, if you find
appropriate item, decorating your Christmas Days. c--)
--
To unsubscribe, e-mail:
My gmail account was hijacked from China!
DO NOT FOLLOW THE LINK IN THE PREVIOUS EMAIL RECEIVED FROM THIS ADDRESS
My Apologies.
Google is aware of the problem
On Mon, Oct 26, 2009 at 12:06 PM, Pat Rice patrick.j.r...@gmail.com wrote:
DIVDear friend,BRI am willing to give you a big surprise.
Friend, I'm willing to give you some good advice!
use warnings;
use strict;
Read http://perldoc.perl.org/
Ian
of the data
structures? Is there a good how to help page out there?
Use the perl DBI.
This page have a good starting tutorial.
http://www.perl.com/pub/a/1999/10/DBI.html
Ian
per day and other
comparable language lists gets 40.
Keep it up and the hollier-than-though's will have the list to themselves
eventually.
Ian
On Tue, Sep 22, 2009 at 9:45 AM, jm jm5...@gmail.com wrote:
What's holly got to do with it, though? ;-
Argh! Yes I can't spell!!! :-O
in there, ignore the preaching posts and use the
teaching posts.
Ian
Pure beginners question.
I'm creating a hash of arrays like this :
$ihash{$3}{$1} = [...@itab];
For now I was able to get the data using Dumper but I need to create a
pretty report.
How do I loop over this hash/hash of arrays to print it out?
Thank you.
--
Ian
Thank you David, Jim, Uri.
syntactical
mistakes in my code I took and thanked the person who helped me.
But with all due respect I'm really disappointed in the fact that people, by
implication and without gathering all the facts, call my a liar.
Ian
Another disclosure: English is not my first language so pardon any grammar
here
and there. I don't use it for mission critical applications.
I'm hoping to change that going forward.
Good luck.
Ian
. :)
In the post that started this discussion the rules as you specified them was
satisfied.
Andthe requesters problem was succesfully solved.
Ian wrote :
This is how I would do it.
Also the code was tested, it run successfully and produced the exact results
the requester asked for. The code did have some
telemachus
One other thing worth saying: Ian seems to me to display the habit that a
lot of first-time (or rare) posters do of over-apologizing for an answer. I
do it myself here and on other forums, and I see it in my students all the
time. It's a pretty natural way to try to deflect potential
$snum, my $sid) = each(%idhash) ) {
print Student = $snum\tuidNumber = $sid\n;
}
END;
Thanks
Ian
On Mon, Aug 17, 2009 at 10:11 AM, Jyotishmaan Ray jyotishm...@yahoo.comwrote:
Dear All,
I have to read the uid from this file for each student entry, which is
itself a LDIF file
(DATA, UIDF);
END;
__
Good luck
Ian
On Mon, Aug 17, 2009 at 12:34 PM, Jyotishmaan Ray jyotishm...@yahoo.comwrote:
Please send me your perl script in neatly wriiten manner.
I need the uids only in another text file in line by line
.
At the moment I'm struggling myself with a piece of data I cannot get
parsed!!!
Good luck
Ian
On Mon, Aug 17, 2009 at 2:12 PM, Jyotishmaan Ray jyotishm...@yahoo.comwrote:
Thanks, a lot can you do this too.
If the input file is as the file enclosed, I need the uids gien in this
file
posting and you will learn why
this is a bad (if prevalent) email style.
As far as top posting ... it makes a lot of sense not to do that.
I will cultivate new posting habits on this list and propagate them to the
other lists I belong to. It will greatly improve their readability.
Regards
Ian
an application that collects statistics, put them in
MySQL and show me nice graphs.
When you have a goal, it is easier to learn to use the tools to achieve the
goal.
If this old mainframer can learn perl you will have no problem with it ;-)
Good luck
Ian
appreciated
All the best
Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
/|Text That Links))
Replacing the individual characters is easy.
But how can I grab the link and text parts out (IF there is a | in the
middle), and reverse them?
Any help appreciated.
Thanks,
Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED
Ian Marlier wrote:
Hi, all --
Howdy,
I'm in the process of writing a script to migrate from one wiki package to
another.
The old wiki help articles in a series of flat text files. The new one
holds everything in MySQL, so I need to parse the text files into a single
SQL import
Hi, all --
I've got another RegEx question, a follow-up to one that I asked earlier
today:
Given a string that looks like this:
This is a (string of words) that go together
I need to turn it into this:
This is a (stringofwords) that go together
Which is to say, I need to match one set of
A really quick intro and tutorial into MYSQL access via Perl is in the
MYSQL weekend crash course a book by Jay Greenspan published by Hungry
Minds. I bought it and found it to be a great intro to Mysql and Perl DB
access in general.
hope this helps,
Ian.
On Friday 31 Oct 2003 6:48 am
Removing the around the variables solved the problem...
But s/\@/\\\@/; also works and that's a pretty useful command so this
problem taught me a few new functions, which is always good!
Thanx
Ian
On Friday, Feb 28, 2003, at 17:19 US/Pacific, Ian Vännman wrote:
Whenever it finds a match
the @?
TIA
/Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello all,
I hope my question isn't too specific for this list. I'm still learning
the basic concepts of SNMP, but I need my current script to send an SNMP
trap to a host here upon failure. I am hoping to use Net::SNMP to do
so, but I think I'm unclear of the syntax due to my current lack of
Hello all,
I need to use alarm to time out a connection to an SFTP server if the
connection hangs (I was able to reproduce such a hang using the Secure
Shell Server for Windows, so I thought it would be nice if my script
assumed this was a possibility).
I think I am not understanding the
Jose,
Yes, you are correct. I did not know about placing the alarm prior to
the hanging condition (gee, I guess that makes sense) or clearing the
alarm afterwards. Thank you!
-Ian
NYIMI Jose (BMB) wrote:
-Original Message-
From: Ian Zapczynski [mailto:[EMAIL PROTECTED]]
Sent
, user=administrator,
password=suite100) || warn connection failed $!;
if (!$sftp) {
print I can't connect!;
} else {
print SUCCESS!;
}
- Original Message -
From: Ian Zapczynski [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, December 12, 2002 4:51 PM
Subject
no way to avoid a die() if called?
Thanks again,
-Ian
Mark Goland wrote:
how about
#/usr/bin/perl -w
use strict;
use Net::SFTP;
my ($sftp) = Net::SFTP-new(10.25.3.150, user=administrator,
password=suite100) || warn connection failed $!;
if (!$sftp) {
print I can't connect
All,
I just pulled down the latest Net::SFTP from CPAN and am using it w/
Perl 5.6.1. I've used the module before and don't *think* I've seen
this problem, but I can't say for sure and have only one machine to test
it on. What happens is that if an SFTP connection is refused to the
Hello all,
I'm obviously making a silly mistake here and would appreciate it if
someone can point out my error. I am trying to populate a hash of a
hash in a while() loop. Here is what I have:
my $i = 0;
my %hash = ();
while (EXPR) {
$hash{SOMETHING}{$i} = $something;
I am not populating from a file, actually. I'm populating from the
output of $sth-fetch from DBI. The $something and $something_else
variables in this case are numbers which have been defined by the output
of that method.
If I do $hash{SOMETHING}{0} = $something;
Then my hash is populated
was undefined. Geez.
Precisely why I'm still on the beginners list. :)
Thanks James and Rob for helping me find that my error was not in syntax.
-I
Rob Dixon wrote:
Quite. What you've written looks fine Ian. But you've probably shown us what
you /meant/ rather than what you've actually coded
script to populate it? I thought of moving my
hash to a subroutine to do so, but then I lose my nifty way of
referencing the data by means like $MyModule::dbstuff{$key}[0]{tag}, no?
Any ideas or criticisms are certainly welcome.
-Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED
because it works when i link to it
from a hardcoded html page, so what happening here?
Ian Watt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
realise that both $headline and $url are the same at the moment, but
having tried various alternatives, I am just getting more and more
confused.
Any assistance would be gratefully received.
Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
application, which
happens to be a news ticker.
Thanks again for your help.
Ian
Why not try grabbing all the important stuff right out of the
pattern,
like my example below. Note: Your pattern may need changes if I
assumed too much, from your examples.
#!/usr/bin/perl
while () {
if (m
ideal because of security implications.
Can anyone offer any helpful advice?
BTW Apologies for the disclaimer below, not my choice I'm afraid.
Thanks in advance
Ian
This message contains information
in
my environment.
Thanks!!
-Ian
-
#!/usr/bin/perl
#
use strict;
use Date::Calc qw(:all);
use Date::Calendar;
use Date::Calendar::Profiles qw( $Profiles );
my ($year,$month,$day) = Date::Calc-Today();
# figure out what day yesterday was so we can determine if it matches
the previous business
and Monday
being day 1 be the culprit? It seems to me this module works on the
actual *date* as it exists on the Gregorian calendar, and not so much
the day of the week. Am I wrong?
-Ian
Nikola Janceski wrote:
just ran your script as is.. and the date is fine for me
output:
today is 2002-8-12
Hello all,
I am using add_delta_workdays() from Date::Calendar to determine whether
yesterday was or was not a business day. In order to do this, I am
trying to compare it with a date output from Add_Delta_Days from
Date::Calc.
What I'd *like* to do is stringify the output from both of these
THat depends on the context of its use. in a subroutine this would take the first
element from @_.
Adriano Sastre Vieira [EMAIL PROTECTED] 07/16/02 10:54AM
What does the following instruction means? That is, when my variable receives shift,
what is it?
my $MENUI = shift;
Thanks :-)
not a string as I thought. I can just
assign the value of $@ to a string and pass that to my sub, but of
course that won't teach me anything. :)
Thanks much!
-Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks! Changing:
my $message = @_;
to:
my ($message) = @_;
did put the correct value in the string.
If anyone cares to explain the difference between the code I had and the code
Shishir suggested so I can understand why this makes a difference, I'm all
ears!
Thanks again,
-Ian
Shishir K
Title: Win32::Service on UNIX?
Hello,
Is there any equivalent for Win32::Service on Unix? That is, a way for a Unix box running Perl to get information about the state of another machine's Win32 services?
TIA,
Ian Samuel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
Title: RE: Need help in Regular Expression
Ankit:
$header = $1 if /^Date: (.*)/;
This should do what you want.
Regards,
Ian Samuel
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 24, 2002 10:14 AM
To: [EMAIL PROTECTED]
Subject: Need help
a PERL script that simply list the pppd from
ifconfig so it list all the pppds like this
ppp1
ppp2
ppp3
..
..
..
ppp21
I want ppp1 kelt up and all the rest killed off - anyone know how I can
do this ?
Regs Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
On Thursday, February 14, 2002, at 08:12 PM, Michael Fowler wrote:
On Thu, Feb 14, 2002 at 04:14:39PM -0500, Ian P. Thomas wrote:
# The array, unchecked_dfa_states, is going to be an array of arrays
( 2-D ).
# dfa_state_creation is a subroutine that returns an array, and takes
an array
code.
Ian P. Thomas
Of course it runs NetBSD
www.netbsd.org
_
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
the first 3-4 lines of the script..
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: Ian Christie [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, February 11, 2002 3:55 PM
Subject: wondering what might be causing this error
Hi,
I'm
, you wrote:
Let's see the first 3-4 lines of the script..
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: Ian Christie [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, February 11, 2002 3:55 PM
Subject: wondering what might be causing
Hello,
Say I have I loop
while (STDIN)
{
print ..
}
Is there a way for me to format whatever values/text are in STDIN so that
I
Hello,
Has anyone ever tried toying or configuring fping and parsing its output via
perl? The reason why I am asking this question is that, I am trying to capture the
output
generated by the command fping -s, what fping -s does is that it generates a summary
output upon exit, I have
Hello,
Given that $a = `1234 abcde abdcd acbd`;
Would anyone know of of a way for me to just extract the numerical
portion of the string. The numerical part is not fixed in length it could be
composed4, 3, 2 or 1 digit I was thinking that the string could be
use of mod_perl. Is it as simple, for
example, as calling specific modules at the start of each script, or is
there much I have to consider when writing my new programs? URL
suggestions are certainly welcome.
Thanks,
-Ian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
62 matches
Mail list logo