[27272] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 9030 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 8 14:05:47 2006

Date: Wed, 8 Mar 2006 11:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Wed, 8 Mar 2006     Volume: 10 Number: 9030

Today's topics:
    Re: Perl scrpit to reschedule AT command? (Rick Scott)
    Re: Regex - need help! <jurgenex@hotmail.com>
    Re: Regex - need help! <jurgenex@hotmail.com>
    Re: Regex - need help! <jurgenex@hotmail.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Wed, 08 Mar 2006 16:55:01 -0000
From: rick@shadowspar.dyndns.org (Rick Scott)
Subject: Re: Perl scrpit to reschedule AT command?
Message-Id: <1141836348.Be6bBa.13520@shadowspar>

(Dave <dave@powerup.com.au> uttered:)
> I once saw a perl script that was able to reschedule the AT command
> but am unable to find it.

It wouldn't be a difficult thing to write yourself.  Use atq to get
a list of jobs, at -c <job_number> to find out what the contents of
a job are, at <new_time> to create a new job, and then 
atrm <job_number> to delete the old one.


> I am not able to use the language myself 

Really?  You should try it; you'd probably like it.

By the way, have you read the posting guidelines for this group?
http://mail.augustmail.com/~tadmc/clpmisc.shtml
I ask merely out of curiosity.




Rick
-- 
key CF8F8A75 / print C5C1 F87D 5056 D2C0 D5CE  D58F 970F 04D1 CF8F 8A75 
Discourse on virtue and they pass by in droves;
whistle and dance the shimmy, and you've got an audience.
     :Diogenes


------------------------------

Date: Wed, 08 Mar 2006 16:45:51 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Regex - need help!
Message-Id: <3TDPf.5380$CT.2089@trnddc04>

dutch disCo wrote:
> I run:
> find . -name "index.html"

Well, ok, but if you are using Perl then File::Find does exist.

> which results in something like this:
>
> ./0223/html/index.html
> ./0357/html/index.html
>
> Now, I want these lines to become:
>
> <a href="./0223/html/index.html">./0223/html/index.html</a>
> <a href="./0357/html/index.html">./0357/html/index.html</a>

Why do you believe you need a regex?
A simple

    while (<>) {
        print "<a href=\"$_\">$_</a>";
    }

should do

> respectively, and store the modified results in a file.

Well if you are using an external "find" already then you can just as well 
keep piping the output of the Perl script directly into that file.

jue 




------------------------------

Date: Wed, 08 Mar 2006 16:49:03 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Regex - need help!
Message-Id: <3WDPf.5381$CT.634@trnddc04>

Ronald Matthews wrote:
> A. Sinan Unur <1usa@llenroc.ude.invalid> trolled:
>> dutch disCo <disco@interia.pl> wrote in
>>> Josef Moellers schrieb:
>
>>>> @modified = map { '<a href="' . $_ . '">' . $_ . '</a>' }
>>>> @lines;
>>>>
>>>>> respectively, and store the modified results in a file.
>>>>
>>>> # Assuming $file is a file handle reference.  print $file
>>>> join("\n", @modified), "\n";
>>>
>>> Sorry, too rookie to use this. Could you please provide the
>>> whole script entries?
>
>> Have you seen the posting guidelines for this group?
>
> The "posting guidelines" are irrelevant to the question asked.

Except that they suggest to post a minimal sample program that exhibits the 
problem because analysing and correcting actual code is much easier than 
guessing about problem based on vague verbal description.

jue





------------------------------

Date: Wed, 08 Mar 2006 16:50:23 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Regex - need help!
Message-Id: <jXDPf.5382$CT.4068@trnddc04>

dutch disCo wrote:
> Only that I'm at work at the moment, it's hectic
> and I urgently need this script.

In that case I believe Usenet is an innappropriate forum because by design 
it is not an instant medium.

jue 




------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc.  For subscription or unsubscription requests, send
#the single line:
#
#	subscribe perl-users
#or:
#	unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V10 Issue 9030
***************************************


home help back first fref pref prev next nref lref last post