RE: pass variable to another program

> -Original Message- > From: Andy Greenwood [mailto:[EMAIL PROTECTED] > Sent: Thursday, May 17, 2007 12:51 PM > To: Brian Volk > Cc: beginners@perl.org > Subject: Re: pass variable to another program > > On 5/17/07, Brian Volk <[EMAIL PROTECTED]> wrote:

pass variable to another program

a text file containing the perl program that runs the FTP download: perl /var/www/cgi-bin/get_image_file.pl Is there a way to pass a variable from program 1 to program 2? Thanks for your help!! Brian Volk

run system command in the background using CGI

Hello, I have web page that downloads and extracts images based on file selection. The thank you page will not be displayed until the download is complete... (Understandable). One of the download files is quite big and the web server is timing out. I would like to thank you page to be displaye

RE: print if variable matches key

> -Original Message- > From: Wagner, David --- Senior Programmer Analyst --- WGO > [mailto:[EMAIL PROTECTED] > Sent: Wednesday, February 28, 2007 3:31 PM > To: Brian Volk; Brian Volk; beginners@perl.org > Subject: RE: print if variable matches key > > > >

RE: print if variable matches key

> -Original Message- > From: Brian Volk [mailto:[EMAIL PROTECTED] > Sent: Wednesday, February 28, 2007 1:34 PM > To: beginners@perl.org > Subject: print if variable matches key > > Hello, > > > > I'm trying to print a tab delimited file based

print if variable matches key

} } } Any help would be greatly apprecieated. Thanks! Brian Volk

using a hash table to replace keys w/ values

Hello All, I have two CSV files, the first file I'm using to create a hash table: The first file looks like this: 1, 11 2, 22 3, 33 4, 44 5, 55 #!/usr/bin/perl use strict; use warnings; my $file = "c:/brian/AX/hp_ax_items.csv"; open(FILE, $file) or die "Can't open t

RE: Question on an error I keep receiving...

> -Original Message- > From: Phil Strack [mailto:[EMAIL PROTECTED] > Sent: Tuesday, November 14, 2006 5:06 PM > To: beginners@perl.org > Subject: Question on an error I keep receiving... > > Hi > I'm very new to Perl and teaching myself...Running ActiveState port on > Windows Server 2003

assign STDIN to a hash ref

Hello~ I'm trying to assign STDIN to a hash ref... I think? :-) I have a working program (w/o references) but I think it will easily get out of control if I don't learn to use references. Here is what I would like to do: User selects vendor and then selects the type of image (regular or thumbn

RE: grab first item in every file

> -Original Message- > From: John W. Krahn [mailto:[EMAIL PROTECTED] > Sent: Tuesday, August 22, 2006 1:42 PM > To: Perl Beginners > Subject: Re: grab first item in every file > > Brian Volk wrote: > > > > my ( $job, $truck ); > > while ( <&g

RE: grab first item in every file

> -Original Message- > From: John W. Krahn [mailto:[EMAIL PROTECTED] > Sent: Monday, August 21, 2006 5:49 PM > To: Perl Beginners > Subject: Re: grab first item in every file > > Brian Volk wrote: > > Hi All~ > > Hello, > > > How can I grab t

grab first item in every file

Hi All~ How can I grab the first item in every file and include in the first print statement below. The first item will always start w/ a "$" and will not match a key in %DIR_LIST. The other items in the file (.pdf's) may or may not match a key in %DIR_LIST Filename1: O20270.TXT $432

RE: Unable to run prog's

ppm> > & unfortunately on this prompt I am unable to run any of my > Perl programme . > Please help me out sir & give tips for begining it. [Brian Volk] The ppm> is the Perl Package Manager... it is used for installing perl modules. If you hav

Autovivification / anonymous array questions

Hello~ I have a couple of questions from chapter 4 in the Alpaca book. Everything is working fine but I keep getting "I don't understand blue_shirt" whether I create the anonymous array w/ $provisions{$person} = [] unless exists $provisions{$person}; Or if I comment out the above l

RE: ImageMagick Error

sion conflict. Below is a good post: http://redux.imagemagick.org/discussion-server/viewtopic.php?t=3613&sid=6a47 2bdfe6122978a9599a677167b812 Hope this helps! Brian Volk -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

reference to a hash

s_for_all { my $all = shift; for my $person (sort keys %$all) { check_required_items($person, $all->{$person}); } } __END__ brian volk hpproducts.com [EMAIL PROTECTED] 317-298-9950 x1245

RE: Date difference.

$today[0] += 1900; my @birthday = (2006, 4, 6); my $days = Delta_Days(@birthday, @today); print "I am $days days old\n"; exit 0; Thank you! Brian Volk -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: A very basic question

aved the file 3.) type perl hello_world.plx You should see: C:\brian\perl>perl hello_world.plx Hello World! C:\brian\perl> Hope this helps! Brian Volk -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: Transform column into row

rt keys %texts) { print "$id: @{$texts{$id}}\n"; } - end hash_mult_values.pl Gives the result: C:\brian\perl>perl hash_mult_values.pl id001: text1 text2 text3 id002: text23 text555 id003: text666 Hope this helps, Brian Volk -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: CSV Help

Check out this link. http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel/lib/Spreadsheet/Wri teExcel.pm#set_custom_color(%24index%2C_%24red%2C_%24green%2C_%24blue It explains the FORMAT METHODS that come w/ the Spreadsheet::WriteExcel module. Hope this helps. Brian Volk PS: forgive the

RE: sort files by creation time

-Original Message- From: Brian Volk Sent: Tuesday, December 13, 2005 8:10 AM To: 'Brian Franco' Subject: RE: sort files by creation time -Original Message- From: Brian Franco [mailto:[EMAIL PROTECTED] Sent: Monday, December 12, 2005 7:34 PM To: Brian Volk Subject

Re: sort files by creation time

Todd W wrote: "Brian Volk" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] After running a few tests... :~) I think I might be able to sort on the inode... ? Does this make sense? my @files = glob("/mnt/qdls/MSDSIN/*"); foreach my $file (@files)

RE: sort files by creation time

-Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Monday, December 12, 2005 4:44 PM To: Brian Volk Cc: 'beginners@perl.org' Subject: Re: sort files by creation time Brian Volk wrote: > Hi All~ > > > > I'm using the glob function to

RE: sort files by creation time

le (@files) { print "$file\n"; my $ino = (stat($file))[1]; print "ino is $ino\n"; Thanks! Brian -----Original Message- From: Brian Volk [mailto:[EMAIL PROTECTED] Sent: Monday, December 12, 2005 12

sort files by creation time

lse { my $basename = fileparse($ARGV,'.TXT'); $basename =~ s/O//; print "Job $basename missing msds $_\n" } } brian volk hpproducts.com [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 317-298-9950 x1245

RE: local $/ = '';

-Original Message- From: Tom Allison [mailto:[EMAIL PROTECTED] Sent: Saturday, November 19, 2005 4:43 PM To: Brian Volk Cc: 'beginners@perl.org' Subject: Re: local $/ = ''; Brian Volk wrote: > Hi All~ > > > > I'm trying to get my head arou

local $/ = '';

on the blank line (record separator) and not after each line in the file? I guess I don't understand the magic that is happening... could someone pls explain this in beginners' terms? :~) Thank you! brian volk

which perldoc ?

t and the -e is checking to see if the file exist... I have no idea what the -p is for but I would like to be able to look it up. :~) Thanks! brian volk

RE: Running Perl on PC

-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Monday, October 17, 2005 2:21 PM To: beginners@perl.org Subject: Running Perl on PC Hello I learned Perl on a Unix System and I would like to use perl on a PC. Do I need to install active perl? What are the ste

PDF::FromHTML

take suggestions for WinXP as well. Considering I just converted 230 .html's to .pdf one-by-one. Don't want to do that again! :~) Whew. Thanks! brian volk hpproducts.com [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 317-298-9950 x1245

not sure what $i stands for

ple use $i ? It is a special variable in PERL maybe for integers? Pls let me know. Thanks! brian volk hpproducts.com [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 317-298-9950 x1245

RE: Unable to use XML module

See bottom... -Original Message- From: Cristi Ocolisan [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 06, 2005 6:48 AM To: beginners@perl.org Subject: RE: Unable to use XML module Try install XML-Simple Co -Original Message- From: Nath, Alok (STSD) [mailto:[EMAIL PROTECTED

RE: which packages are installed?

> -Original Message- > From: Rex Rex [mailto:[EMAIL PROTECTED] > Sent: Tuesday, August 16, 2005 2:12 PM > To: Brian Volk > Cc: Beginners (E-mail) > Subject: Re: which packages are installed? > > > Brian, > > I don't think you can differentiate

which packages are installed?

lot of PKG files, which I think might be what I'm looking for... but I was just interested in the modules that I installed, not the ones that came w/ the distribution.. Anyone have any ideas? Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

substitution doesn't work on all files ?

  or die "can't open $text_file: $!";  open OUTPUT, "> $out_file"  or die "can't open $out_file: $!";while () {   s% http://.* % $link %g;   print OUTPUT;  }  close INPUT; close OUTPUT;  move( $text_file, "$text_file.bak" );

Re: match basename file and s / / /;

Adam Wuellner <[EMAIL PROTECTED]> wrote: > > On 8/4/05, Brian Volk <[EMAIL PROTECTED]> wrote: > > for now it's back to the drawing board and waiting for that light in my head > > to go off! :~) > > Brian, > > I took the last script you pos

RE: match basename file and s / / /;

> -Original Message- > From: Jay Savage [mailto:[EMAIL PROTECTED] > Sent: Thursday, August 04, 2005 12:46 PM > To: Brian Volk; beginners perl > Subject: Re: match basename file and s / / /; > > > On 8/4/05, Brian Volk <[EMAIL PROTECTED]> wrote: > >

RE: match basename file and s / / /;

> -Original Message- > From: John Doe [mailto:[EMAIL PROTECTED] > Sent: Thursday, August 04, 2005 8:03 AM > To: beginners@perl.org > Subject: Re: match basename file and s / / /; > > > Brian Volk am Mittwoch, 3. August 2005 17.50: > > Hi All~ > > &

match basename file and s / / /;

iptions/product/small/$basename.pdf"; if( $PDFDIR_LIST{"$basename.pdf"} ){ open FH, $text_file or die "can't open $text_file: $!"; s% http://.* % $link %; next;} } close (FH); closedir (TEXTDIR); __END__ Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

print to a specific location in a file

web site. Pls let me know if this is possible and where I can read about it. Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: How to install modules without ppm3 ?

> -Original Message- > From: Clement [mailto:[EMAIL PROTECTED] > Sent: Monday, August 01, 2005 3:53 AM > To: "Tim Johnson" > Cc: beginners@perl.org > Subject: Re: How to install modules without ppm3 ? > > > O... sorry, forgot to mention, Yes, I am using Windows. > Any helps ? =) > > Th

RE: print to a specific location in a file

-Original Message- From: Brian Volk Sent: Monday, August 01, 2005 11:03 AM To: Beginners (E-mail) Subject: print to a specific location in a file Hi All~ Is it possible to open a file and print to a specific location in the file? For example, I have a 1K file and 0 - 511 is where

RE: open > file && s/ / /;

> -Original Message- > From: John W. Krahn [mailto:[EMAIL PROTECTED] > Sent: Wednesday, July 27, 2005 3:47 PM > To: Perl Beginners > Subject: Re: open > file && s/ / /; > > > Brian Volk wrote: > > Hi all, > > Hello, > > > Can

open > file && s/ / /;

$file for replace: $!\n" && s & http://.* & descriptions/product/MSDS/$file &; close BF } } --- Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: File::Find if match rename

> -Original Message- > From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED] > Sent: Friday, July 22, 2005 11:44 AM > To: Brian Volk > Cc: Beginners (E-mail) > Subject: Re: File::Find if match rename > > > On Jul 22, Brian Volk said: > > > I

File::Find if match rename

$new_pdf; if ( m/$mfg_num/ ) { rename "$_", "c:/brian/spartan/$new_pdf" } } } Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

beginners@perl.org

> > On 6/6/05, Brian Volk wrote: > > Hello All, > > > > I'm working w/ the File::Find module for the first time and > I'm having > > problems w/ my else statement.. If the query does not > match the first file > > in the directory, it will

beginners@perl.org

7;); sub wanted { return if($_ =~ /^\./); stat $File::Find::name; if ( m/$query/i ) { print "Location: $search_results$_\n\n"; } else { print "Location: $no_search_results\n\n"; } } Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: Matching a $string w/ $string plus any extension

-Original Message- From: Brian Volk Sent: Thursday, May 19, 2005 11:44 AM To: Beginners (E-mail) Subject: Matching a $string w/ $string plus any extension Hi All, I'm trying to print a file name(s) if it matches $query... which is the basename. I think I can do this w/ a

Matching a $string w/ $string plus any extension

my $query = "30700"; # my $string = File::Find::Name; find(\&wanted, 'w:/html/msds'); sub wanted { return if ($_ =~ /^\./); print "$_\n" if (/$query.\w+/ eq $_); } __END__ Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: Create Excel spreadsheets

> -Original Message- > From: Peter Rabbitson [mailto:[EMAIL PROTECTED] > Sent: Friday, May 13, 2005 4:04 PM > To: beginners@perl.org > Subject: Create Excel spreadsheets > > > I am about to start on a project that will be creating > various excel files. > Cpan yields quite a number of

Net:FTP ->quot issue cmd to AS/400

username, $password); # this does not work ftp->quot(rcmd pgm["kiethb", "quotetest"]); # I tried using the system cmd as well ...no luck system "quote rcmd pgm(kieth/quotetest)"; $ftp->quit; Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: convert image sizes

> use strict; > use Image::Magick; > > my $image = Image::Magick->new; > umask 0022; > my @pics= <*.jpg>; > What does umask 0022 do? Thanks! Brian Volk -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

import data to Excel Template

will be running this on a XP box. Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: RE: if else question

> OK I get it now. I have made a few changes to your original, > particular because I don't liek to use @ARGV with in a > script. I also changes the way you store file, moving it into > a hash structure so comparisons are much faster. Feel free to > modifie as is. > > HTH, > Mark G. > > #!PER

RE: if else question

> > Hi All, > Hello, > > > > > The first time I wrote this if else statement I wrote it > > correctly... now > > I've confused myself... :~) > That will happen often ! > > > > If the "if" statement returns false the program writes that line > > in the file > > to $error_log for every $file

if else question

ere is not a match in the directory. } else { print NOFILE "\n"; } } closedir (ORDERS); Thanks for your help! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Binding Operator =~ Pattern Matching

he text message part: $!\n"; $msg->attach ( Type => 'application', Path => "$html_dir/$html", Disposition => 'attachment' ) or die "Error adding $html $!\n"; MIME::Lite->send('smtp', $mail_host, Timeout=>60); $msg->send; } } } closedir (ORDERS); ___END Any help would be greatly appreciated! Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: choosing the correct attachment

tipart/mixed' > > ) or die "Error creating multipart container: $!\n"; > > > > $msg->attach ( > > Type => 'TEXT', > > Data => $message_body > > ) or die "Error adding the text message part: $!\n"

RE: choosing the correct attachment

Type =>'multipart/mixed' > > > ) or die "Error creating multipart container: $!\n"; > > > > > > $msg->attach ( > > > Type => 'TEXT', > > > Data => $message_body > > > ) or die "Error adding the text message part:

choosing the correct attachment

=> 'application', Path => $html_file, Filename => $_, Disposition => 'attachment' ) or die "Error adding $html_file $!\n"; MIME::Lite->send('smtp', $mail_host, Timeout=>60); $msg->send; } } } closedir (ORDERS); Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: Match filename and attach

t; > > > ---end > > > > I think a hash is what I need to be doing but I'm not sure > how to load the > keys and the values. I'm sure I want the keys to be the > files in the .html > directory and the values to be the item numbers in all the > .txt

RE: Match filename and attach

y and the values to be the item numbers in all the .txt files. This way I can create the hash to function as a table lookup.. Right? Could someone pls point me in the right direction # directory or .html doc's my $html_dir = "C:/brian/test/html"; opendir (HTML, $html_dir)

Match filename and attach

ge_body ) or die "Error adding the text message part: $!\n"; $msg->attach ( Type => 'application/zip', Path => $html_file_zip, Filename => $email_file_zip, Disposition => 'attachment' ) or die "Error adding $email_file_zip: $!\n"; MIME::Lite->send('smtp', $mail_host, Timeout=>60); $msg->send; } } closedir (ORDERS); ---end Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: Regexp::Common

> -Original Message- > From: Brian Volk [mailto:[EMAIL PROTECTED] > Sent: Monday, April 04, 2005 11:30 AM > To: Beginners (E-mail) > Subject: Regexp::Common > > > Hi All, > > I have a directory of .txt files, a couple thousand and I > want to p

Regexp::Common

or die "Open failed"; my $regex = "descriptions/product/MSDS"; while (<>) { print SAVESTDOUT "$ARGV $1\n" and close(ARGV) and next if /RE =~ {$regex}{-keep}/; } closedir (SMALL); close SAVESTDOUT; --end Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Keeping format when printing

images.. I would like those to print as well. Is this possible? Thanks for your help. Brian Volk

new line "\n" for print file

lt; $print_file") or die "can't open $print_file : $!"; while( ) { print; } copy ($print_file, '//hp-exch/HP4100-IS'); close PRINT; --end Thank you!!! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Net::Printer

uot;hp-exch", port=> "515", lineconvert => "YES" ); my $result = $lineprinter->printfile(); ---end Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: Send file to printer

> > Hi All, > > I was able to send the file to the printer using: copy > ($print_file, '//hp-exch/HP4100-IS'); > just like the documentation said .. :~) I just had to get > the server name correct! > > Thanks! > > Brian > > > Well, I thought I knew what I was doing. Now I am havin

RE: Send file to printer

> -Original Message- > From: Brian Volk [mailto:[EMAIL PROTECTED] > Sent: Thursday, March 24, 2005 11:24 AM > To: 'Bakken, Luke'; 'Perl Beginners' > Subject: RE: Send file to printer > > > > > >From: Bakken, Luke [mailto:[EM

RE: Send file to printer

>From: Bakken, Luke [mailto:[EMAIL PROTECTED] > c:\>net use lpt1: "\\hp-exch\HP LaserJet 4100(IS)" /p:n > > Then from the command line: > > c:\>copy file_for_printer lpt1: > > If that works, then using File::Copy to lpt1: should work as well. > > Luke > Thanks Luke! When I type this at a

RE: Send file to printer

, printer => "HP4100-IS", # this is the Share name server => "HP-EXCH", port => "515"' #lineconvert => "NO" ); my $result = $lineprinter->printfile(); } -- end Brian Volk -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: Send file to printer

> > On Wed, 23 Mar 2005 16:05:53 -0500, Brian Volk wrote: > > Hi All, > > > > I'm trying to send the output file to a network printer. > The program is > > working fine as far as producing the file, but it is not > being sent to the > > printer.

Send file to printer

ile, '//HP-EXCH/HP LaserJet 4100(IS)'); } close ITEMFILE; --- end Brian Volk Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Send file to printer

while (@urls) { my $url = shift(@urls); chomp $url; my $file = shift(@items); chomp $file; # this line will get and store the msds my $msds = getstore($url,$file); } Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Re: /$RE{URI}{HTTP}{-keep}/;

Shiping Wang wrote: At 12:19 PM 2/15/2005 -0700, EWALKER 1016705 wrote: On Tuesday 15 February 2005 11:06 am, Brian Volk wrote: > #!/usr/bin/perl > > use warnings; > use strict; > use Cwd; > use File::Basename; > use Regexp::Common qw /URI/; > > my $dir = "C:/brian/

RE: /$RE{URI}{HTTP}{-keep}/;

> -Original Message- > From: EWALKER 1016705 [mailto:[EMAIL PROTECTED] > Sent: Tuesday, February 15, 2005 2:20 PM > To: beginners@perl.org > Cc: Brian Volk > Subject: Re: /$RE{URI}{HTTP}{-keep}/; > > > On Tuesday 15 February 2005 11:06 am, Brian Volk

/$RE{URI}{HTTP}{-keep}/;

;; my $text = ''; open(TEXT, "< $file") or warn "$!\n"; read( TEXT, $text, -s TEXT ); print LINK "$text $1\n" # <-- Use of uninitialized value in pattern match and close TEXT an

RE: Create html pages w/ images and text

reate html pages w/ images and text > > > On Sun, 13 Feb 2005 12:31:48 -0500, [EMAIL PROTECTED] (Brian > Volk) wrote: > > > > I do have ome more question > >if you don't mind.. If I had images w/o text... ( I know > I said that > >wouldn't be th

Re: Create html pages w/ images and text

zentara wrote: On Sat, 12 Feb 2005 12:32:22 -0500, [EMAIL PROTECTED] (Brian Volk) wrote: Hi All, I have two directories, one directory contains 20 text files and the other directory contains 15 jpeg's. I need to create an html page for each text file and insert the image if one exis

Create html pages w/ images and text

quot;, mail=>1, ); close $WRITE; close $READ; rename "$file.tmp", $file or die "Can't rename temp file to original: $!"; end If someone could give me some advice on how to best go about this I would be greatly appreciative. De

RE: write new file to same dir

Thank you so much for spelling it out for me. I learned a lot! ...BTW your "--Untested--" worked great! :~) Brian > -Original Message- > From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED] > Sent: Friday, February 11, 2005 1:31 PM > To: Brian Volk > Cc: Be

RE: write new file to same dir

$dir) or die "Can't open $dir: $!"; Do I change opendir to (HTML, ">>$dir/*.html) That didn't seem to work... Thanks again for your help! Brian > -Original Message- > From: bright true [mailto:[EMAIL PROTECTED] > Sent: Friday, Februar

write new file to same dir

x27;t open $newdir: $!"; # load @ARGV for <> operator below @ARGV = map { "$dir/$_" } grep { !/^\./ } readdir HTML; while (<>) { chomp; s/31990/31720/g; print; } closedir (HTML); ___END Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Add img tags to html pages

on of some documentation on this subject? Thanks for your help! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Re: writing newfile to a dir

JupiterHost.Net wrote: Brian Volk wrote: Hi All, Hello, I created a script that renames a dir of MP3 files... Everything is Perhaps File::Copy::Recursive can assist you in this? http://search.cpan.org/~dmuey/File-Copy-Recursive-0.02/Recursive.pm use File::Copy::Recursive 'dircopy'

writing newfile to a dir

Hi All, I created a script that renames a dir of MP3 files... Everything is working well except when I try to write the new files to a directory. I thought I could print to a dirhandle, apparently not.. :~) Maybe I need to mv the $newfile...? not sure... Any help would be greatly appreciat

RE: LWP get only img

2004 1:22 AM > To: Brian Volk > Cc: Beginners (E-mail) > Subject: Re: LWP get only img > > > > > > - Original Message - > From: Brian Volk <[EMAIL PROTECTED]> > Date: Wednesday, December 22, 2004 12:59 pm > Subject: LWP get only img > > &

LWP get only img

ts/detail.jsp?rcpNum=1013> "; my $page = get($url) or die "Could not load URL\n"; my $parser = HTML::TokeParser::Simple->new(\$page) or die "Could not parse page"; $parser->get_tag ("img") || die; my $token = $parser->get_token; if ($token-

RE: LWP get_tag('img')

> Brian Volk wrote: > > Hi All, > > > > I'm having trouble narrow down the correct " > > > This piece of code will get ALL the " > > > while (my $img_tag = $parser->get_tag('img')) { > > my $i = $img_tag->[1];

LWP can't get tag...

::TokeParser::Simple->new(\$page)   or die "Could not parse page";    my  ($tag, $attr); $tag = $parser->get_tag("center");  $attr = $tag->[1]->{"src"}; print $tag->[0], ": ",  $attr, "\n";   __end__   Brian Volk HP Product

LWP get_tag('img')

[1]; # attributes of this img tag my $code = $i->{'src'}; print "$code\n"; } __end__ Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: LWP getstore

Dave, Ugh thank you! That worked prefect. :~) Brian > -Original Message- > From: Dave Gray [mailto:[EMAIL PROTECTED] > Sent: Friday, December 03, 2004 11:19 AM > To: Beginners (E-mail) > Subject: Re: LWP getstore > > > > I'm having trouble w/ getstore... It works fine when I use

FW: LWP getstore

Hi All, I sent this email yesterday, but I never saw it post... I'm sure as soon as I send it again, it will appear.. :~) Thanks! Brian -Original Message- From: Brian Volk Sent: Thursday, December 02, 2004 1:26 PM To: Beginners (E-mail) Subject: LWP getstore Hi All,

LWP getstore

$url" unless is_success($images); open(OUT, ">", $file) or die "can't open $file:$!"; print OUT $images; close (OUT); } ___END Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

RE: Create new "outfile" foreach line in "inputfile"

.11); $parser->get_tag("td"); my $lgdesc = $parser->get_text(); open(OUT, ">", $file) or die "can't open $file:$!"; print OUT $lgdesc; close (OUT); } > -Original Message- > From: Brian Volk > Sent: Tuesday, November

Running Perl Scripts Via A Web Page

g for. :~) Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

Create new "outfile" foreach line in "inputfile"

know where I can read about this... Is this something I need to work into a hash? I have a working script (screen scraping) but it is only for one url and one outfile. Any direction would be greatly appreciated. Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTEC

Substitution inside a loop

amp;x=0&y=0 http://www.kcprofessional.com/us/product-details.asp?search=v1 <http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=1 240&x=0&y=0> &searchtext=1240&x=0&y=0 etc. Any help would be greatly apprecitated! Thanks! Brian Volk HP Products 317.298.9950 x1245 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]

  1   2   >