Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Open Source > Perl
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Perl section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developersí questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Display Modes
  #1 (permalink)  
Old April 15th, 2007, 09:27 PM
Authorized User
 
Join Date: Apr 2007
Location: Toronto, ontario, .
Posts: 11
Thanks: 0
Thanked 0 Times in 0 Posts
Default Perl help

How can I open a system program multiple times.

#!/usr/bin/perl
use warnings;
use strict;
system ("notepad.exe");
#How can I make this program open as much times as I want?

Reply With Quote
  #2 (permalink)  
Old April 18th, 2007, 08:18 AM
Friend of Wrox
Points: 1,515, Level: 15
Points: 1,515, Level: 15 Points: 1,515, Level: 15 Points: 1,515, Level: 15
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Dec 2003
Location: Oxford, , United Kingdom.
Posts: 488
Thanks: 0
Thanked 3 Times in 3 Posts
Default

Use a loop. Pehaps something like:

Code:
#!/usr/bin/perl
use warnings;
use strict;

print "Run program? (y/n)"; # ask if we should run program
while(<> !~ /^n/i) {        # while our user doesn't reply with a line that starts 'n'
   print "\n";              # print a blank line 
   system ("notepad.exe");  # run program
   print "Another? (y/n)";  # ask if we want another instance of the program run
}
--
Charlie Harvey's website - linux, perl, java, anarchism and punk rock: http://charlieharvey.org.uk
Reply With Quote
  #3 (permalink)  
Old April 25th, 2007, 11:54 AM
Authorized User
 
Join Date: Apr 2007
Location: Toronto, ontario, .
Posts: 11
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Thank you kid sir:D

Reply With Quote
  #4 (permalink)  
Old April 25th, 2007, 12:09 PM
Authorized User
 
Join Date: Apr 2007
Location: Toronto, ontario, .
Posts: 11
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Quote:
quote:Originally posted by ZORCH
 Thank you ciderpunx:D

Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Getting practical with perl ZORCH Perl 2 April 29th, 2007 10:00 PM
Help with learning perl philrobeson Intro Programming 2 January 26th, 2007 11:57 AM
perl vidura Perl 6 December 7th, 2006 05:50 AM
perl jeet Perl 1 March 6th, 2006 04:06 PM
Beginning Perl toma All Other Wrox Books 6 August 10th, 2005 11:22 AM



All times are GMT -4. The time now is 03:37 PM.


Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.