csh, perl, python??

paddy3118 · 10-31-2007, 01:19 AM

Quote:

Originally Posted by ghostdog74

another way, except there's extra "," at the end.

Code:

awk 'BEGIN{s=12345;n=12350}
     s<n{ printf s++"," }' "file"

(I think you may have missed the 'for' out, and if you use exit in a BEGIN block then you don't need an input file to loop over).

Oh wait, Are you trying to use the fact that file has enough lines in it so the s<n test can match enough times? If so then you haven't put in what to do when s>=n. This is very bad code - you may have got it to print something close, but its the programming equivalent of standing on a unicyclebalanced on a pyramid to change a lightbulb ;-)

ghostdog74 · 10-31-2007, 02:16 AM

Quote:

Originally Posted by paddy3118

Oh wait, Are you trying to use the fact that file has enough lines in it so the s<n test can match enough times?

bingo!

. Just having some "bad" fun, seeing that there are so many ways to do the same thing.

radoulov · 10-31-2007, 06:41 AM

Quote:

Originally Posted by makyo

Adding a spin with eval makes it work with bash3:
[...]

Yep,
good catch!

radoulov · 10-31-2007, 06:45 AM

Quote:

Originally Posted by makyo

Some version of seq can do it directly:
[...]

... and I think that this is
the "rigth" answer (IMHO, of course)!
Thanks for pointing it out!

baidym · 11-03-2007, 06:16 AM

Thats great thanks for all the suggestions guys, went with perl in the end:

print -n "enter first number:\n"
chomp($fstnum = <STDIN>);
print -n "enter last number:\n"
chomp($lastnum = <STDIN>);

print join ",",$fstnum..$lastnum;

But I now need to enclose each number in quotation marks i.e.

% <script>
enter first number:
%123
enter last number:
%127
"123","124","125","126","127"

ideas anyone??

also how can I assign variables on the command line?

i.e
% <script> 123 127
"123","124","125","126","127"

Michelle

bigearsbilly · 11-05-2007, 03:52 AM

perldoc perlvar

(my italics

Code:

    $LIST_SEPARATOR
    $"
     This is like $, except that it applies to array and slice values
	    interpolated into a	double-quoted string (or similar interpreted
	    string). Default is	a space.

Code:

@L = ($firstnum..$lastnum)
local $" = ',';          # look up this in perlvar
@L = map {"\"$_\""} @L   # add quotes into the array (a bit naff?)
print "@L\n";

command line arguments appear in @ARGV
maybe use shift

$arg1 = shift;

WindowBreaker · 11-05-2007, 09:46 AM

Yet another way to do it with Perl:

Code:

perl -le '$"=","; @array=(12345..12350);print "@array"'

12345,12346,12347,12348,12349,12350