---
title: "!--Begin--"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19085-begin"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Rödalacket"
published: "2000-07-01T10:49:00.000Z"
updated: "2000-07-01T12:37:00.000Z"
replies: 3
views: 338
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19085-begin"
---

# !--Begin--

## #1 — Rödalacket, 2000-07-01T10:49Z

På min nya sida så har jag en tabell som jag vill 
att gästboken skall skriva till. Gästboken letar 
efter \<!--Begin--\> och skriver ut medelandet under detta.
Nu ligger \<!--Begin--\> i en tabell och det verkar som om scriptet
inte hittar det. Om jag lägger en annan sida utan tabeller 
så funkar det utmärkt. Hur får jag scriptet att hitta 
\<!--Begin--\> i tabellen??

Permalänk: https://www.webforum.nu/p/19085

## #2 — Qaz, 2000-07-01T12:20Z

Troligen vill scriptet att begin ska ligga på ett speciellt ställe i raden. Om den inte hittar begin på det sättet så skrivs inget ut.

ex:

```
<table> <!--Begin--> </table>
```

 komer inte att funka medans 

```
<table> 
<!--Begin-->
</table>
```

kommer att funka. I annat fall måste du visa lite kod för att kunna få hjälp....

Permalänk: https://www.webforum.nu/p/340836

## #3 — Rödalacket, 2000-07-01T12:31Z

Här är en bit av scriptet, det är en snutt av jxbookpro.

```
sub add_entry {
	open(MAIN,$gb_file) &#0124; &#0124; &fatal('Kunde inte öppna filen ' . $gb_file . ' för läsning.');
	@main = <MAIN>;
	close(MAIN);
	open(MAIN,">" . $gb_file) &#0124; &#0124; &fatal('Kunde inte öppna filen ' . $gb_file . ' för skrivning.');
	foreach $main_line (@main) {
		if ($main_line =~ /<!--begin-->/) {
			print MAIN "<!--begin-->\n";
			if ($use_template eq '1'){
				open(INDATA,$template);
				@templatelines = <INDATA>;
				close(INDATA);
				foreach $templateline (@templatelines){
					if ($templateline =~ /%%(.*)%%/) {
						$templateline =~ s/%%clock%%/$clock/g;
						$templateline =~ s/%%date%%/$date/g;
						foreach $tmp (@fields){
							$testmacro = '%%' . $tmp . '%%';
							$templateline =~ s/$testmacro/$form{$tmp}/g;
						}
					}
					print MAIN $templateline;
				}
			} else {
				print MAIN "\n";
				if ($use_date eq "1"){
					print MAIN "<p><i>$dateclock</i></p><br>\n";
				}
				if ($form{'name'}){
					if ($form{'email'}){
						print MAIN "<b>Namn:</b><i><a href=\"mailto:$form{'email'}\">$form{'name'}</a></i><br>\n";
					} else {
						print MAIN "<b>Namn:</b><i>$form{'name'}</i><br>\n";
					}
				}
				if ($form{'homepage'}){
					print MAIN "<b>Hemsida:</b><i><a href=\"$form{'homepage'}\">$form{'homepage'}</a></i><br>\n";
				}
				if ($form{'comments'}){
					print MAIN "<b>Kommentar:</b><i>$form{'comments'}</i><br>\n";
				}
				print MAIN "\n";
				print MAIN "<hr width='400'><br>\n";
			}
		} else {
			print MAIN "$main_line";
		}
	}
	close(MAIN);
```

och så här ser HTML koden ut:

```
<td width="345" align="left" valign="top" height="1674"> 
        <p><font face="Arial, Helvetica, sans-serif" size="4">G&auml;stbok</font></p>
        <!--Begin--> 
        <p>&nbsp;</p>
        <p>&nbsp; </p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p><font color="#CCCCCC" size="1">&copy; 2000</font></p>
      </td>
```

Permalänk: https://www.webforum.nu/p/340837

## #4 — Rödalacket, 2000-07-01T12:37Z

Nu skäms jag  :r :r
Jag såg vad det var för fel när jag hade skickat upp koden... :r
Jag hade skrivit begin med stort b i html koden....\*sorry\*

Permalänk: https://www.webforum.nu/p/340838

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19085-begin