?
Solved

generating a sequence of "namenumber" in Perl or PHP

Posted on 2008-06-24
7
Medium Priority
?
237 Views
Last Modified: 2008-06-24
I have a file like this:

yellow
black
red


How can I obtain a new file that repeats those names followed by numbers of a specified range?

For example for 8 to 12 it must generate this:

yellow8
yellow9
yellow10
yellow11
yellow12
black8
black9
black10
black11
black12
red8
red9
red10
red11
red12
0
Comment
Question by:lucavilla
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
  • +1
7 Comments
 
LVL 48

Expert Comment

by:hernst42
ID: 21860580
Could go like this:
$start =  8;
$end   = 12;
$fp = fopen('newfile.txt', 'w');
foreach (file('wordsperline.txt') as $line) {
   for ($i = $start; $i<= $end; ++$i)
     fputs($fp, trim($line) . $i ."\n");
}
fclose($fp=;

Open in new window

0
 
LVL 39

Assisted Solution

by:Adam314
Adam314 earned 800 total points
ID: 21860618
Call like:
    script.pl file.txt

#!/usr/bin/perl
use strict;
use warnings;
 
while(<>) {
	chomp;
	for my $i (8..12) {
		print "$_$i\n";
	}
}

Open in new window

0
 
LVL 84

Expert Comment

by:ozo
ID: 21860753
perl -lne 'print for <${_}{8,9,10,11,12}>' file
0
Video: Liquid Web Managed WordPress Comparisons

If you run run a WordPress, you understand the potential headaches you may face when updating your plugins and themes. Do you choose to update on the fly and risk taking down your site; or do you set up a staging, keep it in sync with your live site and use that to test updates?

 

Author Comment

by:lucavilla
ID: 21860948
Unfortunately I get errors with all the proposed solutions:



hernst42:

C:\PHP\php -r yourscript.scp
PHP Parse error:  syntax error, unexpected $end in Command line code on line 1



Adam314:

C:\Perl\bin\perl yourscript.pl file.txt
Bareword found where operator expected at script.pl line 4, near ") as"
        (Missing operator before as?)
Bareword found where operator expected at script.pl line 6, near ")
     fputs"
        (Missing operator before fputs?)
syntax error at script.pl line 4, near ") as "
syntax error at script.pl line 6, near ")
     fputs"
Execution of script.pl aborted due to compilation errors.



ozo:

C:\Perl\bin\perl -lne 'print for <${_}{8,9,10,11,12}>' file.txt
The system cannot find the file specified.

The "file.txt" is in the current dir so I don't know why it doesn't find it. I suppose that the problem is in the syntax of the command.
0
 
LVL 39

Expert Comment

by:Adam314
ID: 21861140
On my script, are you sure you copied/pasted correctly.  The string that is causing an error ") as" doesn't exist in the script, and line 4 is blank.  What version of perl are you using?
    perl -v


For ozo's script on windows, you need double quotes instead of single quotes.
0
 
LVL 84

Accepted Solution

by:
ozo earned 1200 total points
ID: 21861256
dos shell handles quotes differently
C:\Perl\bin\perl -lne "print for <${_}{8,9,10,11,12}>" file.txt
0
 

Author Comment

by:lucavilla
ID: 21861552
oopss.. Adam314, I used the hernst42's script for your test.. sorry.. your script worked, as the script of Ozo. Thanks both!

By the way Ozo, your minimalist solutions are always the best! You're really a genius, my favourite genius. I'm curious... where are you from?  :)
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
This article discusses how to implement server side field validation and display customized error messages to the client.
Learn how to match and substitute tagged data using PHP regular expressions. Demonstrated on Windows 7, but also applies to other operating systems. Demonstrated technique applies to PHP (all versions) and Firefox, but very similar techniques will w…
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.
Suggested Courses

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question