Gossamer Forum: General: Perl Programming: Help with Split Function

Mar 27, 2003, 8:01 AM

learningHawk

New User (1 post)

Mar 27, 2003, 8:01 AM

Post #1 of 4

Shortcut

Help with Split Function

Hello there,
can anybody tell me how to use the split function so that the file coming in will be displayed into the table.

Script below..

#!/usr/bin/perl

print "Content-type: text/html\n\n";
use CGI qw(:standard -debug);
use strict;

my @records;
open( INFILE, "courses.txt" ) or die( "Error opening courses.txt $!, stopped");
print while(<INFILE>);
#@records = < INFILE >;
close( INFILE );

#foreach my $rec (@records)
# {
# chomp($rec);
# }
#generate HTML acknowledgment

#print "<HTML><HEAD><TITLE>Individual Results</TITLE></HEAD>\n";
#print "<BODY>\n";
#print "<H2>Student Survey Results</H2>\n";
#print "<TABLE><B>\n";
#print "<TR><TD>$name</TD><TD>$program</TD><TD>@courses</TD></TR>\n";
#print "</TABLE><BR>\n";
#print "</B></TABLE>\n";
print "</BODY></HTML>\n";

Thanks in advance
Hawk

Mar 27, 2003, 8:15 AM

tandat

Enthusiast (809 posts)

Mar 27, 2003, 8:15 AM

Post #2 of 4

Shortcut

Re: [learningHawk] Help with Split Function In reply to

Hi Hawk,

Supported the "|" char is used as field delim
--
my @records;
open( INFILE, "courses.txt" ) or die( "Error opening courses.txt $!, stopped");
print while(<INFILE>);
@records = < INFILE >;
close( INFILE );

print "<HTML><HEAD><TITLE>Individual Results</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H2>Student Survey Results</H2>\n";
print "<TABLE><B>\n";

foreach my $rec (@records)
{
chomp($rec);
my ($name,$program,@courrses) = slplit('|',$rec);
print "<TR><TD>$name</TD><TD>$program</TD><TD>@courses</TD></TR>\n";
}
#generate HTML acknowledgment

print "</TABLE><BR>\n";
print "</B></TABLE>\n";
print "</BODY></HTML>\n";

Cheers,

Cheers,

Dat

Programming and creating plugins and templates
Blog

Mar 27, 2003, 9:05 AM

Paul

Veteran (19537 posts)

Mar 27, 2003, 9:05 AM

Post #3 of 4

Shortcut

Re: [tandat] Help with Split Function In reply to

slplit