?
Solved

generating a sequence of "namenumber" in Perl or PHP

Posted on 2008-06-24
7
Medium Priority
?
239 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
  • 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 85

Expert Comment

by:ozo
ID: 21860753
perl -lne 'print for <${_}{8,9,10,11,12}>' file
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 

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 85

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: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

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

This article discusses four methods for overlaying images in a container on a web page
Many old projects have bad code, but the budget doesn't exist to rewrite the codebase. You can update this code to be safer by introducing contemporary input validation, sanitation, and safer database queries.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.

601 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