Perl

Perl RSS

Form data as input into Perl code

•

Join Date: May 2006

Posts: 7

Reputation: brounemmanuel is an unknown quantity at this point

Solved Threads: 0

brounemmanuel brounemmanuel is offline

Offline

Newbie Poster

Form data as input into Perl code

May 25th, 2006

Please help me with how to use client inputs in a form as part of arguments in a CGI script following a button return. I want a client to specify a name which i can then use in perl script to create a folder for that client.

•

Join Date: May 2006

Posts: 36

Reputation: azimuth0 is an unknown quantity at this point

Solved Threads: 5

azimuth0

Offline

Light Poster

Re: Form data as input into Perl code

May 25th, 2006

Try using the CGI module. It makes doing CGI development in Perl extremely easy (at least the CGI bits).

Try this at a command line:

Help with Code Tags

Perl Syntax (Toggle Plain Text)

perldoc CGI

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: Form data as input into Perl code

May 25th, 2006

Yes, the CGI module is your friend:

http://perldoc.perl.org/CGI.html

•

Join Date: Jan 2005

Posts: 18

Reputation: demo is an unknown quantity at this point

Solved Threads: 2

demo

Offline

Newbie Poster

Re: Form data as input into Perl code

Jun 1st, 2006

A simple example... (note: more validation should be done, this is just an example...)

// a basic html form

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
<form action='script.pl' method='post'>
NAME: <input type='text' name='name' size'8' maxlength='8' />
<br />
<input type='submit' name='button' value='Folder Name' />
</form>
<form action='script.pl' method='post'>
NAME: <input type='text' name='name' size'8' maxlength='8' />
<br />
<input type='submit' name='button' value='Folder Name' />
</form>

// the perl script (script.pl)

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
#! /usr/lib/perl
 
use CGI;
use strict;
 
my $obj = new CGI;
 
my $name = $obj->param ( 'name' );
 
my $base = './docs/folders/';
 
print "Content-type: text/html\n\n"; 
 
if ( $name eq '' )
{
	print "the directory name was not entered!\n";
}
elsif ( $name !~ m/^[a-z0-9]{1,8}$/i )
{
	print "the directory name was not valid!\n";	
}
else
{
	if ( -e $base . $name )
	{
		print "can not create directory, directory already exists!\n";
	}
	elsif ( ! mkdir ( $base . $name, 0777 ) )
	{
		print "can not create directory\n";
	}
	else
	{
		print "new directory created\n";
	}
}
 
exit(0);
#! /usr/lib/perl

use CGI;
use strict;

my $obj = new CGI;

my $name = $obj->param ( 'name' );

my $base = './docs/folders/';

print "Content-type: text/html\n\n"; 

if ( $name eq '' )
{
	print "the directory name was not entered!\n";
}
elsif ( $name !~ m/^[a-z0-9]{1,8}$/i )
{
	print "the directory name was not valid!\n";	
}
else
{
	if ( -e $base . $name )
	{
		print "can not create directory, directory already exists!\n";
	}
	elsif ( ! mkdir ( $base . $name, 0777 ) )
	{
		print "can not create directory\n";
	}
	else
	{
		print "new directory created\n";
	}
}

exit(0);