Hi all!
Hi all guys, I'm new to PERL, I'm now to the list. This is just for a presentation... See you soon. chew23 -- go ahead... be a heretic! -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
On Tuesday 30 Mar 2010 13:38:12 chew23 wrote: Hi all guys, I'm new to PERL, I'm now to the list. This is just for a presentation... Hi chew23! Welcome to the Perl world , Perl community and this list. You can find many resources and links to resources for Perl beginners on the Perl Beginners' Site: http://perl-begin.org/ I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl Regards, Shlomi Fish [P6] - Perl 6 is entirely different, and as good as it may eventually be, still does not have a production-ready implementation, nor does it intend to completely eliminate Perl 5. See you soon. chew23 -- - Shlomi Fish http://www.shlomifish.org/ Why I Love Perl - http://shlom.in/joy-of-perl Deletionists delete Wikipedia articles that they consider lame. Chuck Norris deletes deletionists whom he considers lame. Please reply to list if it's a mailing list post - http://shlom.in/reply . -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
Welcome to the Perl world , Perl community and this list. You can find many resources and links to resources for Perl beginners on the Perl Beginners' Site: http://perl-begin.org/ Many thanks for this! I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl I apologize to the list, but I was not aware of this. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
On Tue, 30 Mar 2010 18:20:02 +0200 chew23 johnvoo...@hotmail.it wrote: I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl I apologize to the list, but I was not aware of this. Few non-Perl mongers are. (It's just that some mongers get really antsy if you get it wrong.) FYI: Perl is used for the language and anything related to it. perl is the name of the program that runs Perl scripts. If in doubt, use Perl. Also, Perl mongers are advocates for Perl. See http://www.pm.org/ to find mongers near you. -- Just my 0.0002 million dollars worth, Shawn Programming is as much about organization and communication as it is about coding. I like Perl; it's the only language where you can bless your thingy. Eliminate software piracy: use only FLOSS. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
On Tuesday 30 Mar 2010 20:02:54 Shawn H Corey wrote: On Tue, 30 Mar 2010 18:20:02 +0200 chew23 johnvoo...@hotmail.it wrote: I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl I apologize to the list, but I was not aware of this. Few non-Perl mongers are. (It's just that some mongers get really antsy if you get it wrong.) Well, you can blame the ghosts of the ancient Greek for thinking that introducing two parallel sets of letters - the uppercase and the lowercase ones was a good idea. Some alphabets such as the Hebrew Alphabet or the Arabic Alphabet only have one set of letters, and they work fine. That put aside, I still try to write in proper-case English and prefer to read properly- capitalised English text, because I find it easier. FYI: Perl is used for the language and anything related to it. perl is the name of the program that runs Perl scripts. If in doubt, use Perl. My link explained that. Also, Perl mongers are advocates for Perl. See http://www.pm.org/ to find mongers near you. Another thing - the word monger. Compare: 1. Fish monger. 2. Perl monger. 3. Hate monger. In Hebrew 1 would be Mokher, 2 would be Shocher and 3 would be Mecharcher. If we called ourselves Mokhrey HaPerl or Mecharcherey HaPerl people will get the wrong idea. Regards, Shlomi Fish -- - Shlomi Fish http://www.shlomifish.org/ Stop Using MSIE - http://www.shlomifish.org/no-ie/ Deletionists delete Wikipedia articles that they consider lame. Chuck Norris deletes deletionists whom he considers lame. Please reply to list if it's a mailing list post - http://shlom.in/reply . -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Hi all
Hi ... I have to make my back button of the browser disable ... can any one help me in doing that using perl script... Thanks in advance Anusha Krishnachand
RE: Hi all
From: Anusha Krishna chand I have to make my back button of the browser disable ... can any one help me in doing that using perl script... Thanks in advance Anusha Krishnachand The quickest way to do that in most browsers is right click on the toolbar, select customize and remove the button from the bar. If you mean disable it on browsers used to view your pages, you can't do that and shouldn't even try. That button is a basic feature of the browser and should always be available. I do know there is a javascript trick that works on some browsers, but I consider that a bug that should have been fixed long ago. I also file bug reports on any site that I notice interfering with the use of back and forward buttons. Another option is to add 'target=_blank' attribute to the anchor to open the page in a new tab or window. Bob McConnell -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Hi all, can we read or delete multi-lines from Listbox widget?
Hi all, Can we read or delete multi-lines from Listbox widget? If not, what widget can do it? Text? If it can, how to do it? Please help me. I waste a lot of time and can't figure it out. Thanks. Hui Wang. - 雅虎免费邮箱-3.5G容量，20M附件
Hi all, when click on an item which laied in a ListBox, can we let some strings print into a Text widget area.
Hi all,
Hi all, when click on an item which laied in a ListBox, can we let some strings
print
into a Text widget area.
Below is my perl script which does not work properly.
use warnings;
use strict;
use Tk;
use URI;
my $mw = MainWindow-new;
my $text = $mw-Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid 1
-height 10 -width 20 -scrollbars se/);
$text-pack(qw/-expand yes -fill both/);
my $list = $mw-Scrolled(qw/Listbox -setgrid 1 -height 10 -width 20 -scrollbars
se/);
$list-pack(qw/-side bottom -expand yes -fill both/);
$list-focus;
$list-bind('Double-1' =
sub {
print want to print an url's content to '\$text'\n;
},
);
my(@pl) = qw/-side top -pady 1 -anchor nw/;
open IN, urls or die $!;
while(IN){
chomp;
next if $_ =~ /^\s*$/;
my $url = URI-new($_);
my $b1 = $list-Checkbutton(
-text = $url,
-relief = 'flat'
)-pack(@pl);
}
close IN;
MainLoop;
Who can help me? thanks.
Hui Wang
-
Mp3疯狂搜-新歌热歌高速下
Re: Hi All
Randal L. Schwartz wrote: Hridyesh == Hridyesh Pant [EMAIL PROTECTED] writes: Hridyesh Check this site http://perldoc.perl.org/ Why refer someone to a website that replicates everything that is on their own disk anyway? It boggles my mind every time I see this! Because searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! If you want to make perldoc useful, why don't you organize a project to go thru its PODs and add X... where appropriate? -- Just my 0.0002 million dollars worth, --- Shawn Probability is now one. Any problems that are left are your own. SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
On Wed, 16 Nov 2005, Shawn Corey wrote: Date: Wed, 16 Nov 2005 08:34:16 -0500 From: Shawn Corey [EMAIL PROTECTED] To: beginners@perl.org Subject: Re: Hi All Randal L. Schwartz wrote: Hridyesh == Hridyesh Pant [EMAIL PROTECTED] writes: Hridyesh Check this site http://perldoc.perl.org/ Why refer someone to a website that replicates everything that is on their own disk anyway? It boggles my mind every time I see this! Because searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! If you want to make perldoc useful, why don't you organize a project to go thru its PODs and add X... where appropriate? I agree. Perldoc is of little use to the beginning student of perl. It needs a function similar to man -k then it would be really useful. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi All
But why no one has done something to make Perldoc more helpful for all? Armando Gomez Guajardo Process Engineer Work Ph 956 547 6438 Beeper956 768 4070 -Original Message- From: Dennis G. Wicks [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 16, 2005 8:05 AM To: beginners@perl.org Subject: Re: Hi All On Wed, 16 Nov 2005, Shawn Corey wrote: Date: Wed, 16 Nov 2005 08:34:16 -0500 From: Shawn Corey [EMAIL PROTECTED] To: beginners@perl.org Subject: Re: Hi All Randal L. Schwartz wrote: Hridyesh == Hridyesh Pant [EMAIL PROTECTED] writes: Hridyesh Check this site http://perldoc.perl.org/ Why refer someone to a website that replicates everything that is on their own disk anyway? It boggles my mind every time I see this! Because searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! If you want to make perldoc useful, why don't you organize a project to go thru its PODs and add X... where appropriate? I agree. Perldoc is of little use to the beginning student of perl. It needs a function similar to man -k then it would be really useful. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
Shawn Corey wrote: ...searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! Here's a 3-line shell script I use to grep through the core documentation. #!/bin/sh poddir=$(dirname $(perldoc -l perl)) grep -r $@ $poddir/*.pod Example (on FreeBSD 5.4): $ podgrep -iwl gethostbyname /usr/local/lib/perl5/5.8.7/pod/perlfaq9.pod /usr/local/lib/perl5/5.8.7/pod/perlfunc.pod /usr/local/lib/perl5/5.8.7/pod/perlipc.pod /usr/local/lib/perl5/5.8.7/pod/perlos390.pod /usr/local/lib/perl5/5.8.7/pod/perlport.pod /usr/local/lib/perl5/5.8.7/pod/perltoc.pod /usr/local/lib/perl5/5.8.7/pod/perltoot.pod /usr/local/lib/perl5/5.8.7/pod/perlvms.pod But I agree that a Google search like gethostbyname site:perldoc.perl.org is superior. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
On Wed, Nov 16, 2005 at 08:28:39AM -0600, Gomez, Juan wrote: But why no one has done something to make Perldoc more helpful for all? Who are you expecting to do that? Perl is developed by volunteers. And the number of active developers is vanishingly small compared to the number of people who use Perl every day. Volunteers generally work on what they find interesting or stimulating or challenging. This is not always the case of course, people have their own motives. Maybe you are sufficiently motivated to work on improving perldoc? It would appear that most people aren't. Since Perl is open source, you have the usual options if you want something done: 1. Do it yourself. 2. Get someone else to do it. 3. Wait. Often the best way to get someone else to do something for you is to pay them. Yes, this is all a little simplistic, but the principles hold. -- Paul Johnson - [EMAIL PROTECTED] http://www.pjcj.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Hi All
Hi All, This is my first mail to this mailing list. I am just starting to learn Perl. Please help me in getting the basics cleared. Thanks Santosh
Re: Hi All
On Tue, 15 Nov 2005, Santosh Reddy wrote: This is my first mail to this mailing list. I am just starting to learn Perl. Please help me in getting the basics cleared. Here's some basics: http://learn.perl.org/ Here's another: This list responds best to direct questions about specific problems. If you want open-ended help with something that you haven't yet taken any time to research for yourself, stop right there, fire up your web browser (or get out your O'Reilly books), and spend some time studying up on the copious material that is already available for people that are just learning, as you are. Once you get your feet wet, and are working on specific tasks that you need help with, feel free to send specific questions -- along the lines of why doesn't this code work? or why doesn't this line do what I think it should or how can I complete the following subroutine? -- and we will be happy to help you out. But i you just want to open-endedly get the basics cleared, then this list is utterly the wrong place to ask. Start with a web search. Start with an excellent site like learn.perl.org. Start with some independent reading and practicing. And then come back to us once you're ready for the next step. -- Chris Devers ©957ðV Ó -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi all, question about caracter detection
Hi All,
thankx for the help (Sudarshan Raghavan and Beau E.
Cox), i have found a generic solution
here is the sample script...
#
#!/usr/bin/perl -wT
##
# modules
##
use strict ;
##
# Global Variables
##
#
# will recive a string are check agains a list of
allowed values
# Will return : 0 if only allowed chars were found
# 1 if at least one invalid char is
found
sub check_string {
unless ( $_[0] =~ m/[^a-zA-Z0-9]/ ) {
return 0;
}
return 1;
}
##
# Main
##
my $STRING = askdnj\nasj;
print \n(0 is ok, 1 means invalid chars) : ;
print check_string($STRING);
print \n;
###
Stay well all
Miguel Angelo
--- Sudarshan Raghavan [EMAIL PROTECTED] wrote:
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you meant ^, not ~
the s makes
the regex examine new lines, and g means global.
You need an /s when you want . to match newlines
(which it
normally doesn't). In this case since you are not
using a
.., /s is not needed.
$STRING =~ s/[^a-zA-Z0-9]//g;
The above will work just fine
You can also use tr/// for this
$STRING =~ tr/a-zA-Z0-9//cd;
If the OP just wants to check not replace either of
these should
do
unless ($STRING =~ m/[^a-zA-Z0-9]/) {
# Valid STRING
}
or
unless ($STRING =~ tr/a-zA-Z0-9//c) {
# Valid STRING
}
--
To unsubscribe, e-mail:
[EMAIL PROTECTED]
For additional commands, e-mail:
[EMAIL PROTECTED]
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: Hi all, question about caracter detection
You could also use
return $_[0] !~ m/[^a-zA-Z0-9]/;
or
return $_[0] =~ m/^[a-zA-Z0-9]+\Z/;
the last one is clearer to me because you eliminate all of the negatives.
- Original Message -
From: Miguel Angelo [EMAIL PROTECTED]
To: Perl beginners [EMAIL PROTECTED]
Sent: Friday, November 22, 2002 3:34 PM
Subject: RE: Hi all, question about caracter detection
Hi All,
thankx for the help (Sudarshan Raghavan and Beau E.
Cox), i have found a generic solution
here is the sample script...
#
#!/usr/bin/perl -wT
##
# modules
##
use strict ;
##
# Global Variables
##
#
# will recive a string are check agains a list of
allowed values
# Will return : 0 if only allowed chars were found
# 1 if at least one invalid char is
found
sub check_string {
unless ( $_[0] =~ m/[^a-zA-Z0-9]/ ) {
return 0;
}
return 1;
}
##
# Main
##
my $STRING = askdnj\nasj;
print \n(0 is ok, 1 means invalid chars) : ;
print check_string($STRING);
print \n;
###
Stay well all
Miguel Angelo
--- Sudarshan Raghavan [EMAIL PROTECTED] wrote:
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you meant ^, not ~
the s makes
the regex examine new lines, and g means global.
You need an /s when you want . to match newlines
(which it
normally doesn't). In this case since you are not
using a
.., /s is not needed.
$STRING =~ s/[^a-zA-Z0-9]//g;
The above will work just fine
You can also use tr/// for this
$STRING =~ tr/a-zA-Z0-9//cd;
If the OP just wants to check not replace either of
these should
do
unless ($STRING =~ m/[^a-zA-Z0-9]/) {
# Valid STRING
}
or
unless ($STRING =~ tr/a-zA-Z0-9//c) {
# Valid STRING
}
--
To unsubscribe, e-mail:
[EMAIL PROTECTED]
For additional commands, e-mail:
[EMAIL PROTECTED]
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi all, question about caracter detection
Hi All,
Thankx for reading this.
I have a very newbie question...
i'm working on a CGI and i want only to permit some
caracters by the user...
imagine
my $STRING = kjsh234Sd\nki;
# now i want to check if there is any invalid caracter
# in this case a-z ; A-Z and 0-9
there for /[a-zA-Z0-9]/ but i am unable to find a
valid command for that, the \n always passes, i
definity do not want to use execption on what o do not
allow, i want only to allow some caracters
invalidating all others...
here what i have tried
if ( $STRING =~ /[a-zA-Z0-9]/ ) { etc }
my $count = ( $STRING =~ tr /a-zA-Z0-9// );
all failed...
please help me :)
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi all, question about caracter detection
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative, the s makes
the regex examine new lines, and g means global.
Aloha - Beau.
-Original Message-
From: Miguel Angelo [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 18, 2002 2:31 AM
To: [EMAIL PROTECTED]
Subject: Hi all, question about caracter detection
Hi All,
Thankx for reading this.
I have a very newbie question...
i'm working on a CGI and i want only to permit some
caracters by the user...
imagine
my $STRING = kjsh234Sd\nki;
# now i want to check if there is any invalid caracter
# in this case a-z ; A-Z and 0-9
there for /[a-zA-Z0-9]/ but i am unable to find a
valid command for that, the \n always passes, i
definity do not want to use execption on what o do not
allow, i want only to allow some caracters
invalidating all others...
here what i have tried
if ( $STRING =~ /[a-zA-Z0-9]/ ) { etc }
my $count = ( $STRING =~ tr /a-zA-Z0-9// );
all failed...
please help me :)
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi all, question about caracter detection
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you meant ^, not ~
the s makes
the regex examine new lines, and g means global.
You need an /s when you want . to match newlines (which it
normally doesn't). In this case since you are not using a
.., /s is not needed.
$STRING =~ s/[^a-zA-Z0-9]//g;
The above will work just fine
You can also use tr/// for this
$STRING =~ tr/a-zA-Z0-9//cd;
If the OP just wants to check not replace either of these should
do
unless ($STRING =~ m/[^a-zA-Z0-9]/) {
# Valid STRING
}
or
unless ($STRING =~ tr/a-zA-Z0-9//c) {
# Valid STRING
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
hi all
hi group well, i ve gotta file that doesnt ve uniform structure. i wud like to extract the values by using the key. Ex name xxx Ed.q yyy Add zzz bbb aaa ccc bbb ddd in this ex, i want to extract the name and the address, if i use /t then i can extract only the first line in case of add wat shud i do if i want to extract everythg thatz given against add column. since i do not know the size of the array i cant use AoA as well!! is there anyone who can help me in this regard? S:) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Hi all!---- perlmodule for oracle
Hi all, I'd like to know whether there is any perl module which can integrate a database-modelled-website with an oracle backend on sunsolaris-OS thanks in advance, KM Join 18 million Eudora users by signing up for a free Eudora Web-Mail account at http://www.eudoramail.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
