🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #1223

cat

#1223
From: Qrczak
Date: Tue, 14 Apr 1998 11:23
20 lines
1287 bytes
Jak najprościej zrobić cata (tzn. przekazać stdin do stdout)?

system "cat" - Nie chciałbym odpalać zewnętrznego programu do tak
błahego zajęcia.

print while <STDIN> - Niepotrzebnie dzieli tekst na linie. Plik może być
nawet binarny, więc jego "linia" może wtedy zająć i megabajty...

Może coś z sysread/syswrite? Ale jaką wielkością bloku najlepiej?
Czy nie pokłóci się przypadkiem z buforowaniem - może trzeba $| = 1 ?

A może jednak założyć, że system "cat" zrobi to optymalnie?

Oczywiście jest to tylko fragment większego programu :-)

-- 
                                 QRCZAK
    __("<              Marcin Kowalczyk
    \__/              qrczak@knm.org.pl
     ^^      http://qrczak.home.ml.org/
Technical Details
Message-ID: <Pine.LNX.3.96.980414131647.20687A-100000@qrnik.knm.org.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!qrnik.knm.org.pl!qrnik.knm.org.pl!qrczak

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!qrnik.knm.org.pl!qrnik.knm.org.pl!qrczak
From: Qrczak <qrczak@knm.org.pl>
Newsgroups: pl.comp.lang.perl
Subject: cat
Date: Tue, 14 Apr 1998 13:23:55 +0200
Organization: Klub Nieszkodliwych Manjaków
Lines: 21
Message-ID: <Pine.LNX.3.96.980414131647.20687A-100000@qrnik.knm.org.pl>
NNTP-Posting-Host: ppp2-cst80.warszawa.tpnet.pl
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit