[linux-programming] help perl

[risiyanto]

Dari tutorial: http://pgsql.designmagick.com/tutorial.php?id=18

#!/usr/bin/perl
$count = 1;
$outputfile = "import.sql";
@chars = ("A" .. "Z", "a" .. "z", 0 .. 9);
@numbers = (0 .. 9);
@single_chars = ("a" .. "e");
$totalrecords = 5000000; # 5 million
open(OUTPUT, "> $outputfile");
print OUTPUT "CREATE TABLE indextest (";
print OUTPUT "id INT, name TEXT, number INT, letter CHAR(1)";
print OUTPUT ");\";
print OUTPUT "COPY indextest (id,name,number,letter) FROM stdin;\";
while ($count <= $totalrecords) {
   $randstring = join("", @chars [map{rand @chars} (1 .. 8)]);
   $randnum    = join("", @numbers [map{rand @numbers} (1 .. 8)]);
   $randletter = join("", @single_chars [map{rand @single_chars}(1)]);
   print OUTPUT 
$count."\t".$randstring."\t".$randnum."\t".$randletter."\n";
   $count++;
};
print OUTPUT "\.n";
print OUTPUT "VACUUM ANALYZE indextest;\n";
close OUTPUT;
exit 0;



Salam
Aris
error:
syntax error at ./index.pl line 13, near "print OUTPUT "COPY indextest "
syntax error at ./index.pl line 17, near "$randnum    = join(""
Can't find string terminator '"' anywhere before EOF at ./index.pl line 23.
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis.php