jack ander writes:
> Hi,
>
> Can anyone instruct me on how to make this script run using ActivePerl on
> WinXP?
>
> Thanks!
> [EMAIL PROTECTED]
>
>
> "To use the perl implementation of RC4 you just give a key in hex on the
> command line and the rc4 perl program will encrypt standa
King, Jason G writes:
> >%hash = (%hash,
> > $ordernum => {
> > date => @data[1],
> > submitby => @data[2],
> > mgmt => $mgt,
> > title => @data[5],
> > loc
Jenda Krynicky writes:
> From:"Sidhartha Priye \(local\)" <[EMAIL PROTECTED]>
> To: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>
> Subject: Could not connect to SMTP server using Mail::Sender - Revised
> Date sent: Wed, 5 Feb 2003 13:30:23 -05
Markham, Richard writes:
>
> I'm having trouble figuring out how I can capture the STDOUT from a system
> function call into an array?
> example: output from the unix ps command put into array.
> system 'ps','-ef'
my @ps_output = `ps -ef`;
Documented in 'perldoc perlop' under quote-like op
[EMAIL PROTECTED] writes:
> ..anyone has idea how to kill/asteriks'ize (;) strings typed
> from console in smart/qick way in pure perl?
>
> so this could work:
>
> print "enter passwd: ";
> # do something with STDIN
> my $passwd = ;
>
> /pd
There is a FAQ "How do I ask the user for a
Oeschey, Lars \(I/EK-142, extern\) writes:
> > Well, that's true -- you want "$configtext->get(0.1,'end');",
> > for example.
>
> hm, ok, that worked... but I'm confused now: why 0.1?
Actually I believe that the first method to the get method should be a
string, i.e.
$configtext->g
michael higgins writes:
> Oeschey, Lars (I/EK-142, extern) wrote:
> > Hi,
> >
> > is it possible to have a Tk::Dialog without a $top defined? I have some
> > non-graphical Installation, and on error I just want to pop some message up
> > that installation failed (or succeeded). If I create a
Oeschey, Lars \(I/EK-142, extern\) writes:
> Hi,
>
> is it possible to have a Tk::Dialog without a $top defined? I have some
> non-graphical Installation, and on error I just want to pop some message up
> that installation failed (or succeeded). If I create a (empty) $top first,
> it looks u
[EMAIL PROTECTED] writes:
> > > print @mapped;
> > > $dialog=$top->Dialog(-title=>"Fertig", -text=>"Die
> > > Laufwerke\n".@mapped."\nwurden erfolgreich
> > > angebunden",-buttons=>[qw/Ok/])->Show;
>
> > That's because the second use evaluates @mapped in a scalar context,
> > wh
Oeschey, Lars \(I/EK-142, extern\) writes:
> ***A T T E N T I O N***
> This email originates from the Internet and therefore may not
> be from the apparent sender.
>
> If you have any doubts about the origin or content of the email please
> contac
[EMAIL PROTECTED] writes:
> Hi,
>
> I have the following routine to remove all "\n" characters from a strings
> end before writing it to a file. within the routine I get the following
> error when a "\n" is removed. Everything is working as expected, but the
> error irritates me a bit.
> T
Gustavo H. Maultasch writes:
>
> I´m trying to use template::rtf to generate rtf files,
> but i´m getting an error for some time.
>
> After calling the 'execute.pl' script from 'system'
> command, i get the following error:
> Undefined subroutine &Template::RTF::Process called at
> C:
Wayne Simmons writes:
> Ok, so I figured if I did this:
>
> foreach (@myArray)
> {
>print;
>splice (@myArray, $current_index, 1) if ( $somecondition);
> }
>
> everything would be OK, because (in my mind) @myArray was being evaluated at
> the top of the loop once, all values ex
Kenneth Jideofor \[ MTN - Ikoyi \] writes:
> Hi,
>
> Given a number of days, it is expected to determine the real date from Jan
> 1, 1970.
> The real date should be in the following format: Year-Month-Day.
>
> How do I implement this task using Perl.
>
> For example, write a Perl script
[EMAIL PROTECTED] writes:
> > The doco for File::DosGlob says that spaces are used to delimit
> > multiple patterns, and that in order to include patterns containing
> > spaces you should escape them with double quotes or backslashes, e.g.
>
> Yeah, I've already guessed that that is the probl
[EMAIL PROTECTED] writes:
> > I have a problem with the following code:
> >
> > sub FileSelect {
> >my $types = [
> >['S19 Files', ['.s19']],
> > ['All Files','*', ],
> > ];
> > $filename = $leftframe->getOpenFile(
[EMAIL PROTECTED] writes:
> >$now=localtime;
> >print DEBUG "$now\n";
>
> btw: When I use the upper lines, I get "Mon Jan 20 15:49:26 2003" as $now.
> If I do
>
> print DEBUG localtime;
>
> i get some big number. What is that number? Unix-ticks or what it's called?
> The differ
[EMAIL PROTECTED] writes:
> > I may be missing the point here, but if you have just created the
> > button you know it hasn't been packed yet. Why would you need to ask
> > it?
>
> The button is created inside a subroutine that is called via another button.
> The user could click again on th
[EMAIL PROTECTED] writes:
> > I have a Text widget that should (and does) display the
> > output of system
> > calls. But the attached scrollbar doesn't work, when i click
> > on the arrows,
> > it only scrolls one line. When I grab the bar itself (the
> > movable thing in
> > the middle)
[EMAIL PROTECTED] writes:
> > You want to test if a widget is packed ?
> > Then, you can use the ismapped method.
> > It returns 1 (is packed) or 0 (is not packed).
>
> hm, this doesn't work:
>
> $gobutton=$top->Button(-text => "Go!", -command => [\&Compute]);
> if (($gobutton->ismap
Choi Myun-Q14751 writes:
> I am running ActivePerl 5.8.0 on WindowsNT platform. The following code is
> giving me an unexpected error. Exact same code runs as expected when I run
> it with Perl 5.6.1 on Solaris platform. Could you point me to what the
> cause of the problem might be? Could
Dietmar Thal writes:
>
> sorry, 2 much ASP
>
> foreach $raus (@todelete) {
>
> regards, Dietmar
>
>
>
> btw: reading an introductional tutorial on loop statements
> in perl or either `perldoc perlsyn` helps ;)
In which you will see:
The "foreach" keyword is actually a s
Conrad, Bill \(ThomasTech\) writes:
> Hi All
>
> Is there a way to find the current cursor line and column position
> in a Tk text widget?
It doesn't seem to be documented, AFAICS, but
$widget->index('current') seems to work.
HTH
--
Brian Raven
You have to admit that it's difficult t
Dougal Campbell writes:
> On Wed, 16 Oct 2002, Dougal Campbell wrote:
>
> > I'm trying to figure out how to dynamically let a module choose whether
> > to use the Exporter module to export functions or present itself as an
> > object with OO methods. How can I do that?
>
> Okay, nevermind.
$Bill Luebkert writes:
> [EMAIL PROTECTED] wrote:
> >
> > All of which discussion illustrates, I think, why it is so often quicker
> > and cleaner to use the ready made solution to the problem that comes
> > with Perl, i.e. in this case, File::Find.
>
> I use it all the time, but it's not
Robert Vaughn writes:
> Kevin,
> Thanks for the help. I have not been able to find any
> good examples or documentation regarding POSIX on
> ActiveState. Any advice?
If you mean the POSIX perl module then see 'perldoc POSIX'. If you
mean POSIX threads then a book on the subject would be mor
[EMAIL PROTECTED] writes:
> Hi, i have this:
> $toto1="Transitionned to assigned by lmiso to W_VAL3G_SOP on 29/11/2001
> 15:20:46";
> $toto2="Transitionned to concluded by elohez on 1/2/2002 7:47:31";
>
>
> $toto1=~/^Transitionned to ([^ ]*) by ([^ ]*)( to ([^ ]*))? on ([^ ]*)/;
>
> pr
Peter Stucki writes:
> ***A T T E N T I O N***
> This email originates from the Internet and therefore may not
> be from the apparent sender.
>
> If you have any doubts about the origin or content of the email please
> contact PC Support on x2288
John Ravich writes:
> It's only my third day with Perl
and your third identical message. Careful now :-)
> ... I am
> working in the Komodo development environment on
> Windows 2000. I am trying to get a user input for the
> radius and then, calculate the circumpherence of the
> circ
Jenda Krynicky writes:
> I'd do it like this :
>
> # set up the mapping
> %replace = (
> Boulevard => 'Blvd',
> Street => 'St',
> Drive => 'Dr',
> Avenue => 'Ave',
> Circle => 'Cir',
> );
>
> # prepare the regular expression
> $regexp = join '|', keys %repla
Nasir Kamal writes:
> Split function in PERL.
> i want to split a sentence into words, i m using the following syntax:
>
> split(/ /,$line) note that I have given one space in between two slashes:
>
> however in $line sentence there are often more than one spaces, like 2 space
Evan Morris writes:
> Hi again
>
> I have successfully managed to read my csv file into a hash. I know have a
> hash containing value pairs of:
>
> product_id -- number_of_visits
>
> I know I can sort the hash by the keys, but is there any way to sort the
> hash by the values of the ke
Heiko Nieke writes:
>
> Hi,
>
> as I am relatively new to Perl it would be great if anybody of you could
> help me to solve the following problem:
>
> Description of the problem:
>
> - I would like to read a sequence in Fasta Format (stored as text file
> on a local hard disk)
>
Chris Snyder writes:
>
> Dumb-ass answer:
>
> print "Number to square: ";
> $num = ;
>
> print $num ^ 2, "\n";
>
> I haven't tested this, but you get the idea.
That operator is bit-wise exclusive or. I think the OP was looking for
exponentiation which is rather different (** operator
Vitaly Sinitsin writes:
> Hi,
> Is any way(using Perl) to make restart of service on remote machine, mention
> Win2000(pro, server) only!!!
> On NT I've got solution.
> Thank's.
Does the documentation for Win32::Service help at all?
HTH
--
Brian Raven
Part of language design is purturbin
David Anderson writes:
> Hello All,
>
> I am trying to set up formatted printing and seem to be blocked by use
> strict.
>
> Code below produces the following errors, so could someone be kind
> enough to explain why they occur (and more particularly how one should
> write formatted print
Eric Logeson writes:
> ***A T T E N T I O N***
> This email originates from the Internet and therefore may not
> be from the apparent sender.
>
> If you have any doubts about the origin or content of the email please
> contact PC Support on x2288
Peter Stucki writes:
> ***A T T E N T I O N***
> This email originates from the Internet and therefore may not
> be from the apparent sender.
>
> If you have any doubts about the origin or content of the email please
> contact PC Support on x2288
analyser the writes:
> hi,
>I am new to this list and trying to write a script to access and display
> the error entries in the eventlog. Below is the script which i am trying to
> use.
>
> ~
> use Win32::EventLog;
>
> $Event = new Win32::E
Michael Krygowski writes:
> Hello All,
>
> I was wondering if anyone out there has used UTF-8? I can't seem to find
> much on the topic for Perl. Only thing I've found so far (for usage) was:
> use utf8;
>
> And that seemed to just set a flag so that strings would be traded in a(n)
> U
Moti A. Landes writes:
> hi,
> i am trying to parse information from a HTML file, save certian stuff in
> variables and then take actions.
> the only way i found i can do this is as follows:
>
> $ua = LWP::UserAgent->new;
> $request = HTTP::Request->new('GET', "$url$interface.html");
>
Abhimanyu_Bhola writes:
> I have this requirement ( for both Linux/Windows):
>
> use File::Copy;
> File::Copy::copy ( , )
>
>
> How can I find the current dir(in which this script is running)?
For your requirement you don't need to know what the current directory
is. If the fi
Michael T Godfrey writes:
> I have a perl program that crashes when i run it with activeperl. But it
> runs fine when i run it on unix.
>
>
> #!/usr/bin/perl
>
> $file = "test";
>
> dbmopen (%HASH, "$file",0444);
>
> $HASH{a} = "1";
> $HASH{b} = "2";
> $HASH{c} = "3";
>
> @k
Bill Stennett writes:
> Hi All
>
> Platform: windows, AS Perl
>
> I'm trying to create a request object to post data to a web URL. My problem
> is that I can't get past creating the request object. I need to pass a
> couple of values (a and b). The offending line of code is shown below:
Norman Pearson writes:
> Thanks to everyone for the input.
>
> It needs to parse a string for the file name and extension i.e.
> (D:\temp\pic1.jpg and retrieve pic1.jpg). If there is no string to parse
> then the string needs to be empty or null.
>
> I just placed it in a subroutine:
>
Charles Knell writes:
> I need to parse some HTML files in order to tag specific strings with
> formatting markup. Specifically, I have some Transact-SQL stored procedures
> which I have transformed into HTML. In the procedures are variables identified
> by a leading "@" symbol. For example:
Fifield, Mike writes:
> I am working of a script that I need to have spider the web and search for
> certain words on the webpage's that it connects to. It also needs to be able
> to connect to the internet via a proxy server. Does anyone know of a good
> module to use for this type of script?
Messier, Jean-Francois writes:
>
> I am starting programming in Perl/TK and I was playing with
> listboxes. I have a project that would require a multi-column listbox, or a
> grid. I want to be able to list lines with several items, that would scroll
> together.
>
I have used Tk::HLi
Mohammed Khatib writes:
> Hi All,
>
> I need to call a command line application (called LinkD) from my perl
> program. What I need is the output string that LinkD outputs to the screen
> so I can use it in my program, but at the same time, I don't want the system
> application to show up on
Philip Morley writes:
> Is there anyway of evaluating the $! variable outside of the die function?
>
> Specifically, within my Perl script I want to be able to get the error
> string containing the most recent operating system error, without actually
> exiting. However $! only seems to be a
Miika Tuuli writes:
>
>
> Could somebody helps me?
> I tried install 'win32-ole'-package in PPM.
> It didn't work and it gave this error:
>
> Error installing package 'win32-ole': Could not locate
> a PPD file for package win32-ole
>
> Does somebody know, what is this PPD-file
> a
web_tur writes:
> Dear sirs,
>
> Againe I try, and try, no result
>
> I have this text "2001/10/01 10:55 this is test message"
>
> I want to remove first 16 charecter from text to have only "this is test
> message"
>
> Thank you for your help
To manipulate substrings whose size and
Bill Stennett writes:
> Hi All
>
> Does anyone now if there is a way to find keys in a hash which are similar?
> For example could I retrieve all the entries that start with the letter 'A'.
> I suppose what I really want to do is retireve all the keys from a hash
> which match certain searc
[EMAIL PROTECTED] writes:
> Hello,
>
> I need to find a test when I open a File, to detect the EOF.
>
> open (FILE, "< $file);
> while (){
> if ($_ eq eof){ print "BINGO\n"}
> }
> close FILE;
Your while loop is effectively 'while not eof' so you don't need to
explicitly check
Sturdevant, Robert W. (Contr) writes:
> Hi all,
> I'm using AP628 and would like to upgrade to AP629. Previously I've
> uninstalled then installed the newer version and used PPM to reinstall
> modules. I've noticed that CPAN has an autobundle feature that identifies
> currently installed CPAN
Yes, I noticed this too on my new win2k box. They look a bit like ansi
escape sequences, so loading the ansi.sys driver may help.
The problem seems related to the Term::Readline module that comes (or
doesn't come?) with this version of perl. If you check the doco for
Term::Readline it will tell
[EMAIL PROTECTED] writes:
> NO, thank you for the Tip, but with system the Programm waits for Notepad to
> finish.
> But I want to start Notepad, and finish Perl.
> That's what I'm wondering about: system works fine, but with exec I get no
> effect.
Ah, I see. Then in that case try
syst
[EMAIL PROTECTED] writes:
> Hello,
>
> I would like to present the result of my Script on a Win-box in Notepad.
> So I thought about this:
> exec ("Notepad, Result.txt") or print "Fehler: $!\n";
>
> But I only get:
> Fehler: Invalid argument
>
> What is wrong ?
> I use: W
North, Wesley J writes:
> First off, thanks for all the input, I installed the Tk module and have
> created a couple of cool little widgets. I am just about to go searching for
> some additional help, but I thought I would kick this out to the group. What
> part of Tk, if any, would I use to p
Tom Gioconda writes:
> The reason the Active State PPMs can be assume to be thread safe is
> because ActiveState only makes PPMs from CPAN modules that can be be
> built as thread safe.
As I recall the criteria for including modules from CPAN in the PPM
archive were that they build, pa
Alexandre Bouchard writes:
> Hello
>
> I am new to the "perl world"
Welcome.
>
> I installed activePerl, and now I want to set the @INC (I guess it is like
> the CLASS_PATH w/ JAVA)
>
> How can I do that ? Thx.
See 'perldoc -q lib' for starters.
--
Brian Raven
But I know what's im
David Mintz writes:
> This is a generic perl quesetion rather than Windows/Perl, but...
>
> Does anybody have a good regexp for testing whether a string is a
> well-formed www address? (I don't care about going out and fetching the
> page to see if it exists, just whether the url looks legal
Faron Hopper writes:
> C:\perl>snmpgetcdpnei.pl rtr1 public 1.3.6.1.2.1.1.3.0
> hostname: rtr1
> community: public
> OID: 1.3.6.1.2.1.1.3.0
> ERROR: Expected positive numeric port number.
>
> Does anyone have any ideas?
and
> my ($hostname,$co
Shailja writes:
> Hi all,
> Can anyone tell the usage of Grep.
perldoc -f grep
>I want to retrieve all the text files from , say C:/ directory and then use grep
>function to search for a string in these text files using grep.
Already been done. See http://language.perl.com
Will Du Chene writes:
> Hi List.
>
> A while ago, the company that I work for brought in a couple of consultants
> to write the application that we currently use. Well, they left and I was
> charged with maintaining, expanding upon and refining the code which they
> wrote. Unfortunately, I
Lange writes:
> for your understanding:
> ô is equal to hexcode xf4
> õ is equal to hexcode xf5
>
>
> the following problem appeared:
>
> $var="ôinit1õDresden,ômõ Gewerbeg. Kesselsdorf";
>
> After a
> $var=~s/(\xf4.*?\xf5)//g;
> it´s supposed to keep the fol
R Blakers writes:
> Hello,
>
> We have hit what looks like a bug in the activestate (build 623)
> implementation of the windows socket IO.
>
> What we are doing is writing a server will accept incoming requests on a
> port and spawn in the same thread a client socket to handle the reque
Jerry Bradenbaugh writes:
> Dear Readers:
>
> Has anyone had problems with inconsistent file testing with -e, -f, -d, etc.? If so,
>any ideas for workarounds? Thanks.
>
>
> Jerry Bradenbaugh
I can't recall ever having such problems. Perhaps you could give more
details ab
Sarir Khamsi writes:
> OK, I give up. I've looked in several places -- including between the
> pillows on my sofa
Perhaps you found some money. I hope so.
-- and still can't find out how. How does one get
> the ProcID for doing OLE automation in Perl? That is, I want to
> control Visual C++
Kan, Yu-Ting writes:
> Dear all
> I have browsed for all file test operator but is there one testing whether a
> file is
> being read/write?
File test operators are described on the perlfunc page, under
"Functions for filehandles, files, or directories". Look for "-X".
--
Brian Raven
You te
Edwards, Mark (CXO) writes:
>
> Either substr() or unpack(). unpack() is probable more efficient.
You should probably check before you make such statements. The
following code:
use strict;
use Benchmark;
my $count = 100;
my $data = "abcdefghijklmnopqrstuvwxyz";
timethese($count,
Marv Brafman writes:
> I'm trying to create a simple client/server where the
> client sends one line of text to the server and the
> server displays the text. The client and server are
> running on the same NT 4.0 machine. Everything seems
> to work, except that the length of the text recieve
Thor Egil Leirtrø writes:
> We have an VB application that is extensible with scripts, using the
> Microsoft ScriptControl
> This works perfectly with VBScript and Java scripts. The scripts have
> one string parameter,
> and returns the result in a string.
>
> Does anybody
Pablo Rodrigo writes:
>Please, I´m not finding the Net::Ftp.ppd in the Internet...
>Where I can find it ?
You shouldn't need to find it. Net::FTP is part of the libnet package,
which comes (IIRC) with the Activestate distribution. If you are
trying to use Net::Ftp (as per your m
Andrey Bronfin writes:
> I'm trying to use Env module and could not succeed yet :(
>
> This is what i do :
>
> use Env ;
use Env qw{a};
> $ENV{a} = b ;
> print $a ."\n" ;
--
Brian Raven
I'm afraid my gut level reaction is basically, "'proceed' is cute, but
cute doesn't cut it in the
Mike Blomgren writes:
> I have encountered a problem with the way ActivePerl handles @ARGV and
> wildcard expansion under Win32 and Solaris, and I don't know how to get
> around it in an efficient manner.
>
> I have a single perl script which needs to run under both Win32 and
> Solaris,
Paul Maine Jr. writes:
> I am successfully reading the POP3 message. Next, I store the message
> contents in the @mailmessage array. When I try to print the header tags -
> nothing is printed. Any assistance would be appreciated. I have included the
> code for your review.
>
> Thank You
>
Clarke, Barbara P, HRSVC writes:
> Hi,
> Does anyone know how I can read a PDF file and then search for a keyword?
Perhaps the Text::PDF and/or Text::PDF::API modules may be of
assistance.
HTH
--
Brian Raven
And other operators aren't so special syntactically, but weird
in other ways, like "
Matthew Thompson writes:
> Hi,
> I'm using the following code to delete values from a hash - I get the
> warning (I say warning as it does delete the value) below when delete is
> called. Is ther a better way of deleting values from hashes?
>
> foreach $item (%$self) {
>
Parry Troy writes:
> Does anyone know how to eject a CDROM from a perl script (Win32)?
> Im trying to do it through Win32API::File.
> DeviceIoControl( $hDevice, $uIoControlCode, $pInBuf, $lInBuf, $opOutBuf,
> $lOutBuf, $olRetBytes, $pOverlapped );
>
> $hDevice is supposed to be a Win32 nati
Joe Reed writes:
> hi everyone!
>
> i'm trying to get some of the code into more of an object-oriented syntax,
> however when i try to create an instance of my new obj, i get a syntax error.
> anyone done any perl oo that can help? i'm running activeperl build 623 on
> win 2k, and
Manesh Rao writes:
> >Manesh Rao writes:
> > > >is there a way to set @INC even BEFORE perl is started?
> > > >
> > > >that is : I don't assume the values of @INC are hardcoded,
> > > >as you might install perl wherever you like - so there
> > > >might be some kind of an ini-file.
> >
952Coop1 writes:
> hi all!
>
> in one of my scripts, i need to determe the current directory working
>direcotry. however, i can't seem to figure out how to get the current directory
>path. can anyone help?
The portable way is:
use Cwd;
my $dir = cwd;
HTH
--
Brian Raven
"What is
83 matches
Mail list logo
