Re: Re: Re: Re: How do I extract (x) number of lines from database?

Thanks jlongino, I have taught myself this code, and someties my approach towards things my be uncoventional, like writting a line all the way out in a straight line, without indentation. It is how I read it best. I know that "{" starts a funtion and "}" stops it. Anything in between is what I want to do. Sorry about the __data__ mistake, this was the first time I have every posted. Anyway I have my script working now, but could you tell me why using the "my"s are so important? And here is a slice from my new code.

$cmd = $in{'cmd'};
$this = $in{'this'};

if (($cmd eq 'display') && ($this eq 'page1')) { 
$title = "Free Hosting Table Page 1"; 
$bline = 0; 
$eline = 99; 
&displaypage; 
}
elsif (($cmd eq 'display') && ($this eq 'page2')) { 
$title = "Free Hosting Table Page 2"; 
$bline = 100; 
$eline = 199; 
&displaypage; 
}
elsif (($cmd eq 'display') && ($this eq 'page3')) { 
$title = "Free Hosting Table Page 3"; 
$bline = 200; 
$eline = 299; 
&displaypage; 
}
elsif (($cmd eq 'display') && ($this eq 'page4')) { 
$title = "Free Hosting Table Page 4"; 
$bline = 300; 
$eline = 399; 
&displaypage; 
}
elsif (($cmd eq 'display') && ($this eq 'page5')) { 
$title = "Free Hosting Table Page 5"; 
$bline = 400; 
$eline = 499; 
&displaypage; 
}
elsif (($cmd eq 'display') && ($this eq 'page6')) { 
$title = "Free Hosting Table Page 6"; 
$bline = 500; 
$eline = 599; 
&displaypage; 
}
elsif (($cmd eq 'display') && ($this eq 'page7')) { 
$title = "Free Hosting Table Page 7"; 
$bline = 600; 
$eline = 629; 
&displaypage; 
}




sub displaypage {

&print_header;

open(FILE, "<data/data.txt");
@lines = <FILE>;
close(FILE);

$linenum = 1;
$altnum = 1;

print "<center><table border=\"0\" cellpadding=\"3\" width=\"598\" bgc
+olor=\"#000080\"><tr bgcolor=\"#000099\"><td colspan=\"2\">Free Host 
+Name<\/td><td align=\"center\">Space<\/td><td align=\"center\">Upload
+s<\/td><td align=\"center\">Forced Ads<\/td><td align=\"center\">Scri
+pts<\/td><td align=\"center\">Features<\/td><\/tr>\n";

foreach $item (@lines[$bline..$eline]) {

@thisArray = split(/\|/, $item); 

if ($altnum eq "1") { $altnum = 0;  $bgc = "#000080"; }
elsif ($altnum eq "0") { $altnum = 1;  $bgc = "#000099"; }

print "<tr bgcolor=\"$bgc\"><td align=\"center\">@thisArray[0]<\/td><t
+d><a href=\"goto.cgi?@thisArray[0]\">@thisArray[1]<\/a><\/td><td alig
+n=\"center\">@thisArray[6] MB<\/td><td>@thisArray[7]<\/td><td align=\
+"center\">@thisArray[5]<\/td><td align=\"center\">@thisArray[10]<\/td
+><td align=\"center\"><a href=\"more.cgi?@thisArray[0]\">more<\/a><\/
+td><\/tr>";

$linenum++;            
}
&last;
}

sub last {

print "<\/td><\/tr><\/table>\n\n"; 

&print_footer; 

}

sub print_header {

print <<"EOF";
<html>
<head>
<title>$title</title>
<STYLE>
<!--
body { scrollbar-face-color: #000099;scrollbar-shadow-color: #ffffff;s
+crollbar-highlight-color: #ffffff;scrollbar-3dlight-color: #0000ff;sc
+rollbar-darkshadow-color: #000070;scrollbar-track-color: #000000;scro
+llbar-arrow-color: #0000ff }
td { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11
+px }
.head { font-family: Verdana, Arial, Helvetica; font-size: 24px; white
+-space: nowrap; letter-spacing: .1em}
.block { font-family: Verdana, Arial, Helvetica; font-size: 12px; whit
+e-space: nowrap; letter-spacing: .1em}
.alltext { font-family: Verdana, Arial, Helvetica, sans-serif; font-si
+ze: 11px; letter-spacing: .05em}
//-->
</STYLE>
</head>

<BODY BGCOLOR="#000080" TEXT="#FFFFFF"  LINK="#ffff66" VLINK="#ffff66"
+>
<center>
<span class="head">

$title<br>

</span>

<p>
<span class="alltext">
EOF
} 

sub print_footer {

print <<"EOF";
</span>
<p><br>
</body></html>
EOF
}
[download]

Comment on Re: Re: Re: Re: How do I extract (x) number of lines from database? Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: How do I extract (x) number of lines from database? by jlongino (Parson) on Sep 21, 2001 at 19:02 UTC
. . . could you tell me why using the "my"s are so important? This faq will explain better than I can: What's the difference between dynamic and lexical (static) scoping? Between local() and my()? As for indenting your code, nobody can force you to comment or indent your code so that it is more readable, and, you can probably get away with it as long as you're programming for yourself. But if it is for your instructor, boss, friends, coworkers or fellow perlmonks, you and your work will be appreciated more for it. :) `@a=split??,'just lose the ego and get involved!'; for(split??,'afqtw{\|~'){print $a[ord($_)-97]}`	[reply]

Replies are listed 'Best First'.

Re: Re: Re: Re: Re: How do I extract (x) number of lines from database?
by jlongino (Parson) on Sep 21, 2001 at 19:02 UTC

. . . could you tell me why using the "my"s are so important?

This faq will explain better than I can: What's the difference between dynamic and lexical (static) scoping? Between local() and my()?

As for indenting your code, nobody can force you to comment or indent your code so that it is more readable, and, you can probably get away with it as long as you're programming for yourself. But if it is for your instructor, boss, friends, coworkers or fellow perlmonks, you and your work will be appreciated more for it. :)

@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}

[reply]