i did it already. And installation was fine.
Even then the problem persists.
On Sun, Aug 30, 2020 at 3:22 PM Chankey Pathak wrote:
> Install the Win32::GUI module from cpan
>
> $ cpan Win32::GUI
>
> On Sun, 30 Aug, 2020, 3:19 PM Somu, wrote:
>
>> Hi all!
>> Please
Strawberry/perl/site/lib
C:/Strawberry/perl/vendor/lib C:/S
#trawberry/perl/lib) at window.pl line 1.
#BEGIN failed--compilation aborted at window.pl line 1.
--
Somu.
7;s so that my @ignoreIPs would look something like
> this:
>
> my @ignoreIPs = ("19.147.172.133-136",
>
> "200.147.172.135",
>
> "75.147.172.2[123].$"); #a regular expression
>
>
>
> I understand it migh
7;t work.
>
> use Net::SMTP::TLS;
>
> And make sure you are using these information
>Host => 'smtp.gmail.com',
>Hello=> 'gmail.com',
>Port => 587,
>User => 'x...@gmail.com',
>
>
&g
eneath the surface...
On Tue, Apr 24, 2012 at 6:26 AM, Michael Rasmussen wrote:
> On Tue, Apr 24, 2012 at 01:54:15AM +0530, Somu wrote:
> > Hi everyone...
> > Why isn't it happeing!!??
> >
> > Just the code from Net::SMTP docs
> >
> > ___
Hi everyone...
Why isn't it happeing!!??
Just the code from Net::SMTP docs
__
use strict;
use warnings;
use Net::SMTP;
#these 3 lines bring the output mx.google.com
# my $smtp = Net::SMTP->new('smtp.gmail.com') or die $!;
# print $smtp->do
rlier(back in 2006) when i was working
with ActiveState Perl
But now i'm a beginner again, using Strawberry Perl.
Somu.
okay okay okay
Let me smile a bit first. I'm a newbie, a kid.
[?][?][?]
I'm still new to the intricacies of regular expressions.
Maybe some day i will succeed in crossing 3000kms on foot in 24hours.
hahahaha.
Thank you all.
*I finished the job using HTML::Strip much earlier*
<<338.gif>><<
OK. Can i ask "WHY?"
Why can't it be done using regex. Isn't a html file just another long
string with more, but similar special characters??
Somu
Sir, what is this??:
lynx -stdin -dump < in.html > out.txt
For now, the job got done by HTML::Strip
@Zheng Du, will try your suggestion, but the other files maybe big for one
variable?(these are files containing words and meaning)
Somu.
material is to beincluded in commercial
products, Project Gutenburg should becontacted first. There are no
restrictions for personal or researchuses of this material. | | | | | |
| | | | | | | | | | | | | | | | | | |OPTED v0.03can also be downloaded as
a.(7.1MB/ 19.1M unpacked)
**
*Why is there no uniformity in matching?? What is wrong here??*
*_*
*
*
*
*
*Thanks in advance,*
*Somu.*
t a method to put all the table visible?
> I want my table in this way but i dont know what kind of methods are
> available in the Win32::Ole... Existe some kind of web or documentation to
> search this methods?
>
> ----
> | Blue| Red |green |
> -
> |___|_|___|
> |*Other colors *_|
> |_|
>
> Thanks so much
>
--
Love,
Somu,
http://lose.yourself.mcommunity.biz
http://fidel.castro.peperonity.com
Thank you all.
I wanted the docs offline, as they are already in the modules. Why go
online all the time?
The perldoc generated file shows the start page, but goes online on
clicking any link.
PODWEBSERVER suits me well. It provides me with browsing all modules
documentation offline with http::/loc
I want to see the documentation of a module named Tk i installed recently.
I wish it were in html format for better reading. I'm unable to get the
best out of it in DOS mode.
Is pod2html helpful? If yes then how do i use it?
I tried "perldoc pod2html" but couldn't understand properly..
Somu
WOW!!! Still to see the world... Thanks :)
On Mon, Apr 9, 2012 at 4:04 AM, John W. Krahn wrote:
> Somu wrote:
>
>> Hello everyone...
>>
>
> Hello,
>
>
> Thanks for the previous replies. I'm really improving!
>> A new problem..
>>
>>
yes... Maybe have to work with this only... Thanks
$word =~ /^((un|in).{3}|non.{2})$/
).{3}.+$'
What do i do about the words starting with "non" because it has one more
letter than un or in
--
Love,
Somu,
" or die;
print "\n\n\tReading file names in $path";
print "\n\n\tFiles are :\n";
foreach ( @files ){print;print"\n";}
print "\n\n";
system('pause');
What's going on??
Somu.
x++;
}
if ($count >=3 ){
print "\n\n$no is prime";
}
else{
print "\n\n$no is not prime";
}
}
print "\n\n";
system "pause";
# end
--
Love,
Somu,
http://lose.yourself.mcommunity.biz
http://fidel.castro.peperonity.com
Check for each name if it is a directory by
-d $fname
and then print it if it returns false.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
I meant
untie $process ;
instead of the close function. In the docs, it says untie is better
than close. Why is it so? I only use untie while closing perl database
hashes..
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
I knew LOL from wap chatting.. IMHO, its a gud way to write things.
TIMTOWTWI - there is more than one way to write it!
TDH - That Definitely Helped! Thanks all..
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
What does it mean? AFAIK? I have seeing it a lot.. Earlier i've been
seeing the HTH, and a guess gave the answer.. But this one, AFAIK...
Are there any more such short forms?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Great! Thanks.. How about using untie instead of close? Can i know ,
phat is the difference between the two?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Thanks for the help. I did it using
system "tasklist >> temp";
open FH , "temp" ;
statements..
unlink ("temp"); #EOF
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
About that PID problem, i found a program in Windows named tasklist,
it prints all the processes running on the system with its id. I used
the system command to execute the tasklist, like as
my $data = system "tasklist" ;
but i got nothing in $data. How can i get the data from the system command?
How do i find out the process id of any process. When we see the task
manager in Windows, we can see the programs running in the PC. Is
there any way to know the same with perl? Does process id of a program
change each time the program is run?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addi
Oh..thanks everyone. Now i understand the difference between
references and pointers. Then, i got to know something of C link list
from a perl list.. Hahaha.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
you can store all the data in an array first and then apply regex on
all lines, if the response come in lines. Else, get all the data in a
scalar and apply the regex. I think this may get you the silva
my ($name,$type,$mname) =~ /name=(.*) type=(.*) value=(.*)/i;
i'm not sure though how we may ca
Well, now i know something more. Can't we treat references as
pointers? We use link list in C for the reason that an array needs
continuous memory locations like 1 2 3 4 5 6 .. And when the size is
big, it may fail. So, we use link list. And pushing things into a C
array is not allowed. So we do th
Hi list,
Recently i've been learning a bit of C programming. I used data
structures and then linked lists .. Does perl have this concept?
Linked list helps in good memory management. Does perl automates
memory management for us? Also, all the C variables are bound to be
declared at the top, so that
When we use tk, there is always the black DOS window. How can we make
it disappear?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Oh, i am very sorry for my mistakes. Actually i write email from my
mobile, and somehow that backslash vanished. I just checked now from a
PC and its working now. Thanks. And i also commented that line
sub rm();
thanks everybody!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
Those double dollar signs are formatting errors of my mail server. And
with the code i posted, the error has to be at the if statement in the
rm definition
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
use strict;
use warnings;
use File::Find;
sub rm();
my $count=0;
my @dir = ("F://Hindi/RHTDM");
find(&rm,@dir);
sub rm(){$count++
my ($fname)= $_;
if($fname=~ /mp3/){print "$count $fname"}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://le
/28/07, Randal L. Schwartz <[EMAIL PROTECTED]> wrote:
> > >>>>> "Somu" == Somu <[EMAIL PROTECTED]> writes:
> >
> > Somu> Good sense of humour! Actually i wanted to search for F:/Hindi/RHTDM
> > Somu> and i entered only /Hindi/RHTDM
I write all my programs for my personal use in my PC only, just to
learn perl. I will use the code again and tell you, Mr.Randal. Thanks
anyway. Actually, i have written something which will get all file and
folder names in a given folder matching a regex, but then i want the
same subroutine to run
::Find
On 8/27/07, Randal L. Schwartz <[EMAIL PROTECTED]> wrote:
> >>>>> "Somu" == Somu <[EMAIL PROTECTED]> writes:
>
> Somu> The code didnt work. Error:
> Somu> Can't stat /my/dir: No such file or directory
> Somu> at test.pl
The code didnt work. Error:
Can't stat /my/dir: No such file or directory
at test.pl line 12
On 8/20/07, Martin Barth <[EMAIL PROTECTED]> wrote:
> On Fri, 17 Aug 2007 07:48:33 -0700
> [EMAIL PROTECTED] (Randal L. Schwartz) wrote:
>
> > Why not just:
> >
> > my @list;
> > find sub { push @list, $$
How do i use it? Can it replace the search program in MS XP.. Can i
get an example of an element in the @directories
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Cant we use this to store arrays? Example:
[EMAIL PROTECTED];
i'm getting errors.. Which will be a good alternate? Joining the
array elements and saving as a string to be parsed later or saving a
ref to the array?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EM
Thank you so much.. I was doing
$pic=$mw->Photo(args...)->pack;
by the way, how do i get the data for any picture as Zentara did?
And, please Mr. Chas, can u explain me your example in the other
string? I dont know what XPM is and i couldn't follow your code from
static char ...
--
To unsubscribe
Ok.. To create just one button we write:
use Tk;
use strict;
my $mw = MainWindow->new;
my $b1 = $mw->Button->pack;
MainLoop;
but to create a hundred buttons, we cant keep writing... So, i used
the following:
for(my $i=1;$i<=100;$i++){
my $bt='b'.$i;
$$bt=$mw->Button->pack;
}
but the above gives
All i want to know that i have a file c:/downloads/pics/swati.jpeg and
i have my script at d:/scripts i want to embed the picture in the Tk
button or label.. I am unable to understand the correct syntax from
previous answers.. Please help..
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additio
Lets say, i have an image at E:/icons/ttt so, how do i show it on a
button created using Tk. I tried to learn from the widget application,
but they have some specific folder, INC or something..
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://
I got the answer and its working fine.. Actually i made a TicTacToe
game using Tk. The buttons have are like as below:
l o r
m p s
n q t
and i keep adding the character alternatingly to 2 strings.. When any
of the strings reaches length >= 3 then i start checking for any
pattern out of the eight..
Ok i got that.. I also checked the perldoc -f q
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Actually thats what i was looking for: l.*o.*r
So, if the user entered string is to be matched for 'lpt', then i'll
use l.*p.*t ?
And to match 'npr' i use .*n.*p.*r ?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Thats where the problem arises
my $input = 'loqr';
if ( $input =~ m!lor!i ) {print 'match'}
how will that match? i want them to match. Thats what i want to do.
by the way, can i get some url where i can get lots of problems and
solutions on regexp. I'm very weak in it..
--
To unsubscribe, e-ma
Because if define it, it says 'Global variable "$l" needs...' what do
i do? Actually, i am not happy nor sad that the subroutine needed a
declaration before use.. I'm using ActivePerl 5.8.8 on Windows XP
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTE
Actually, that was just an example to explain my problem. I am facing
this problem when i use Tk. Any subroutine associated with the
-command option of a button widget.
use Tk;
my $mw = MainWindow->new;
my $b = $mw->Button(-text=>'hello',-command=>sub { &welcome })->pack;
my $l = $mw->Label(-text
my $s = <>;
my $t = <>;
conc ( $s , $t );
sub conc {
my $str = $_[0].$_[1];
print $str;
}
Why? It works allright only after add an extra line at the top, that is
sub conc;
its become just like C
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
htt
Hi, i have a matching problem. I get input from the user as a 3-5
character long string consisting of characters from 'l' to 't', and
the chars are always sorted for example, the user enters: 'lrqo'. It
becomes: 'loqr'. But i have to match the modified string to any of the
following: lmn, lpt, lo
Thank you all.. Now i'm able to open files from other drives and
directories.. The EXPR in glob EXPR is actually a kind of regexp then?
What is this new q{} operator?
I am sorry for the previous dubious emails, they actually were errors
made by the mail sender.
--
To unsubscribe, e-mail: [EMAIL
another file E:/Games/readme.txt how do i do it?
On 4/27/07, John W. Krahn <[EMAIL PROTECTED]> wrote:
Somu wrote:
> I'm not certain about what EXPR is..
EXPR is any valid Perl expression.
How do i use glob?
perldoc -f glob
perldoc File::Glob
My next question is regarding opening
I'm not certain about what EXPR is.. How do i use glob?
My next question is regarding opening pipes. I tried the following:
open ( FH , " notepad " );
print FH 'hello' ;
But its only opening the notepad application, and nothing shows up on
the notepad..
--
To unsubscribe, e-mail: [EMAIL PROTECT
Thanks. I got that corrected. Actually, in my code, $n wasnt a
Math::BigFloat OBJECT.
On 4/25/07, Rob Dixon <[EMAIL PROTECTED]> wrote:
Somu wrote:
> On 4/25/07, Tom Phoenix <[EMAIL PROTECTED]> wrote:
>>
>> On 4/24/07, Somu <[EMAIL PROTECTED]> wrote:
>>&g
$q contains decoded msgs using MIME::Base64, and is any random word
from a dictionary of 45000 words.
On 4/26/07, Dr.Ruud <[EMAIL PROTECTED]> wrote:
Somu schreef:
> why wont the following work?
>
> $$q = shift;
print length($$q), " ";
$$p = "pass";
>
why wont the following work?
$q = shift;
$p = "pass";
if ( $q =~ m/$p/i ) { print 'match' }
But it works on changing the $q and $p places..
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Actually the following isnt working:
use Math::BigFloat;
$n = 0;
if ($n->is_zero()) {print 'you entered zero'}
On 4/25/07, Tom Phoenix <[EMAIL PROTECTED]> wrote:
On 4/24/07, Somu <[EMAIL PROTECTED]> wrote:
> I'm unable to compare numbers using the module
I'm unable to compare numbers using the module. Actually i can only
use it to create numbers like 0 or inf or 1 or their negatives. But i
dont know how to use their methods. Bcoz the examples in the doc
aren't working. Can i get some simple examples?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
F
Hi Jeff Ji, your program worked. But i couldn't understand the second
line.. That long print statement. What happened there? My 'simple'
sort arranged numbers in dictionary style.. Like 0 then 1 then 17 then
2 and then 29.. And how come in using strict module, that $a and $b
didnt make any noise?
I'm unable to arrange the numbers in an array in ascending order.. I
tried the following
@asc = sort{$a<=>$b} @list;
but it didnt work. I did a subroutine
sub con{
my ($a,$b);
$a<=>$b;}
Then i tried
@asc = sort con @list; #didnt work
Can anyone please help?
--
63 matches
Mail list logo
