🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #9228

Re: PERL: Werkt Or die ook bij overwrite ?

#9228
From: Philip Paeps
Date: Fri, 10 May 2002 15:49
48 lines
2328 bytes
Eveline <evelinedh@hotmail.com> wrote:
> Wanneer je een bestand opent voor overwrite en bij het "or die"-gedeelte
> zegt File kan niet geopend worden bv. Wordt er dan ook een neuw bestand
> aangemaakt ?

Nee.  Het 'or die' gedeelte wordt uitgevoerd wanneer het voorgaande niet
'true' is.  Dus als open() faalt, zal het 'sterven'.

> open(test , "<nieuwbestand.txt);
> Hier wordt een nieuw bestand aangemaakt, indien het niet bestaat

Hier staat een syntax error en een 'style' fout.  Verder zal dit de file
openen voor *lezen* niet *schrijven*.  

Syntax fout: je ontbreekt een "
Style fout: file descriptors schrijf je meestal IN HOOFDLETTERS

Try this:

 | #!/usr/bin/perl -w
 | 
 | use strict;
 | 
 | # open file for writing
 | open(FILE, "> blubblub")
 | 	or die "Couldn't open FILE for write: $!\n";
 | 
 | # stick a silly string into the file
 | print FILE "lalala";
 | 
 | # close the file
 | close(FILE);
 | 
 | exit;

Wanneerd de file niet kan geschreven worden (bijvoorbeeld: geen
schrijfrechten op de directory), krijg je de error, en wordt er
uiteraard geen file gemaakt.

Veel plezier.

 - Philip

-- 
Philip Paeps                                             philip@paeps.cx

  When a student asks for a second time if you have read
  his book report, he did not read the book.
Technical Details
Message-ID: <E_RC8.68032$Ze.10610@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!supernews.com!news-x2.support.nl!newsfeeds.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
References: <i1RC8.67825$Ze.10479@afrodite.telenet-ops.be>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,24363d08712d1f02
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-05-10 08:50:05 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!supernews.com!news-x2.support.nl!newsfeeds.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: Philip Paeps <philip@paeps.cx>
Subject: Re: PERL: Werkt Or die ook bij overwrite ?
Newsgroups: be.comp.programming
References: <i1RC8.67825$Ze.10479@afrodite.telenet-ops.be>
User-Agent: tin/1.5.12-20020427 ("Sugar") (UNIX) (FreeBSD/4.6-PRERELEASE (i386))
Lines: 48
Message-ID: <E_RC8.68032$Ze.10610@afrodite.telenet-ops.be>
Date: Fri, 10 May 2002 15:49:56 GMT
NNTP-Posting-Host: 213.118.35.198
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1021045796 213.118.35.198 (Fri, 10 May 2002 17:49:56 MET DST)
NNTP-Posting-Date: Fri, 10 May 2002 17:49:56 MET DST
Organization: Telenet Internet