hi all
>
> i am creating a perl script which takes the input from the file to
> create tables, inserting values into the database. As you all know the
> only procedure for taking input from a file (using perl script) into
> MySQL database is through (?) place holders.
> for example ,
>
> $sth=$dbh->prepare
> ("INSERT INTO checkin (firstname, lastname, destination)
> VALUES
> (? , ? , ? )");
>
> $rows=0;
> open FILE, "passlist.txt" or die $!;
> while (<FILE>) {
> chomp;
> ($firstname, $lastname, $destination) = split(/:/);
> $sth->execute($firstname, $lastname, $destination)
> || die "Couldn't insert record : $DBI::errstr";
>
> $rows+=$sth->rows();
> }
>
> Where the passlist.txt hav the data in the format
>
> Tim:Briggs:Glasgow
> Simon:Cozens:Japan
> Richard:Collins:Japan
> Daniel:Maharry:Glasgow
> Emma:Batch:Thailand
>
> Now it is perfect that v can take input from a file...
>
> P.S. : But i wanted to take INPUT that contains the info to create the
> tables
> Where
> CREATE TABLE checkin (
> id INTEGER AUTO_INCREMENT PRIMARY KEY,
> firstname VARCHAR(32) NOT NULL,
> lastname VARCHAR(32) NOT NULL,
> checkedin INTEGER,
> numberofbags INTEGER,
> destination VARCHAR(32) NOT NULL)
>
> NOW I WANTED TO KNOW THE PROCEDURE FOR TAKING THE CODE AS INPUT FROM A
> TEXT FILE & CREATE THE SPECIFIED TABLE
>
What exactly i wanted to do is..
to take a input from a file of format :
INPUT.txt :
Details> name , id INTEGER, area VARCHAR(32)
prady,2039,india
sandy,2398,india
sam,1234,aussie
Rob,2345,Eng
extraDetails>name1 VARCHAR(12), name2 VARCHAR(12)
prady,sandy
sandy,Rob
Rob,sam
sam,prady
in the above text format u can find two tables one is Details> & the
other is extraDetails>
so i wanted to take the line Details> for creating table , & the
values below it for inserting into the table. similarly the second
shud be find out (extraDetails) & those values shud be inserted in to
its table
& one more script the other way round like by getting the
(retrieving) the data from the mysql database using some queries &
creating a file in the above specified INPUT.txt format.
could u please help me in this regard
thanx
Regards
Prady
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
