how to save text from textBox to a text file using Perl in Unix platform

Hi,

I want to save the text from a text box to a text file, but i have problems implementing it.
can someone guide me?

Thanks!

May 9 '11 #1

Subscribe Post Reply

4962

miller

1,089

Expert 1GB

What's a text box?

- Miller

May 9 '11 #2

chez

I will be using cgi.
Will this work?

Expand|Select|Wrap|Line Numbers

 <form action="your_file.cgi" method="GET">

....

<textarea name="texttosave" cols=30 rows=40></textarea><br>

...

<input type="submit">

</form>

you can save the text using the following script:

Expand|Select|Wrap|Line Numbers

 #!usr/bin/perl

use CGI;

my $query=new CGI;

my $txt=$query->param("texttosave");

open(SAVEFILE,"your_file_name") || die"Cannot open file.\n";

print SAVEFILE $txt || die "Cannot print data.\n";

close (SAVEFILE) || die"Cannot save data.";

exit(0);

May 10 '11 #3

RonB

589

Expert Mod 512MB

You opened your filehandle in read mode which is not what you want and is only one of a number of mistakes made in that script.

Every Perl script you write should include. these 2 pragmas.

Expand|Select|Wrap|Line Numbers

 
use strict;

use warnings;

You should use lexical vars for filehandles and the 3 arg form of open and the die statement should include the filename and $! which is the reason it failed.

Expand|Select|Wrap|Line Numbers

 my $file = 'your_file_name';

open my $output_fh, '>', $file or die"Cannot open <$file>. $!\n";

May 10 '11 #4

miller

1,089

Expert 1GB

Putting the good suggestions from RonB into practice, gives you the following script:

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl -wT
 
use CGI;

use CGI::Carp qw(fatalsToBrowser);
 
use strict;

use warnings;
 
my $file = 'your_file_name';
 
my $q = new CGI;
 
if ($q->request_method() eq 'POST') {

    my $txt = $q->param("texttosave");

    open my $fh, '>', $file or die "can't open $file: $!";

    print $fh $txt;

    close $fh;

    print $q->header();

    print <<"END_HTML";

<html>

<head><title>Success</title></head>

<body><p>File successfully saved</p></body>

</html>

END_HTML

    exit;

}
 
print $q->header();

print <<"END_HTML";

<html>

<head><title>Save Textarea</title></head>

<body>

<form method="POST" action="your_file.cgi">

<p>Enter text to save:</p>

<p><textarea name="texttosave" cols=30 rows=40></textarea></p>

<p><input type="submit"></p>

</form>

</body>

</html>

END_HTML

May 13 '11 #5

by: harshan | last post by:

Hi I am trying to read required worksheet from excel file using perl with module spreadsheet::parseexcel and spreadsheet::writeexcel but I am unable to read it, the error I am getting is...

Perl

editing a file using perl script

by: kelly | last post by:

Hi, I don't have a code to show you, what I need are references or algorithms so that I'm in a right track. By the way, thanks for introducing me the array or arrays. Now I can continue my...

Perl

Sorting an Excel file using Perl

by: Kriston Scott | last post by:

I would like to know how to sort the rows in an Excel file, using Perl.

Perl

How to upload an Image file using perl scripting?

by: prakharv | last post by:

Hi All, I would like to upload a image file from my web page to the server using perl scripting. Please, if any one knows regarding this or has the source code for the same, please help me...

Perl

Parsing XML File using Perl

by: sainiamit25 | last post by:

Hi, I am trying to set up environment for XML parsing using perl. I downloaded XML::Simple and installed it too. When i try to run my program, it says, you need to install parser. When i try to...

Perl

Colored line in the output file using perl

by: chandru1985 | last post by:

Hi Guys , Can u help me out in Pel Coding as i'm new to perl . Can any one of them say whether it to print a line in a colored way in the output file using Filehandler .. Codin is :::...

Perl

extracting checkbox from pdf file using perl

by: prashantkuppa | last post by:

please help me anyone, here i am struck up with extracting check box status from pdf file using perl please give anybody some suggestions its urgent thanks prashant

Perl

how to send text data to database using perl

by: sbettadpur | last post by:

hello, I have a bulk of text in text file. so i want to send the text to database using perl is it possible? or do we have to convert text file to any other format if it is yes please let me know ...

Perl

How to create an XML file using perl.

by: crazy4perl | last post by:

Hi All, I have some doubt related to xml. Actually I want to update a file which is in some format. So I am converting that file using Tap3edit perl module in a hash. Now I m trying to create a...

Perl

deleting lines from a db dump file using perl

by: msxi | last post by:

Hi, I have s sed script that removes the following lines from a db dump file. I would like to remove these lines using perl. Could anybody assist? /*!40101 SET SQL_MODE=@OLD_SQL_MODE */;...

Perl

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

how to save text from textBox to a text file using Perl in Unix platform

Similar topics