Copy stdin to stdout: Difference between revisions

From Rosetta Code
Content added Content deleted
(Fix section ordering after edit conflict)
(C)
Line 2: Line 2:


Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.
Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.

=={{Header|C}}==
<lang C>
#include <stdio.h>

int main(){
char c;
while ( (c=getchar()) != EOF ){
putchar(c);
}
return 0;
}
</lang>


=={{Header|Perl}}==
=={{Header|Perl}}==

Revision as of 14:31, 11 November 2018

Copy stdin to stdout is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.

C

<lang C>

  1. include <stdio.h>

int main(){

 char c;
 while ( (c=getchar()) != EOF ){
   putchar(c);
 }
 return 0;

} </lang>

Perl

<lang perl> perl -pe </lang>

Perl 6

When invoked at a command line: Slightly less magical than Perl / sed. The p flag means automatically print each line of output to STDOUT. The e flag means execute what follows inside quotes. ".lines" reads lines from the assigned pipe (file handle), STDIN by default.

<lang perl6>perl6 -pe'.lines'</lang>

When invoked from a file: Lines are auto-chomped, so need to re-add newlines (hence .say rather than .print) <lang perl6>.say for lines</lang>

Prolog

<lang Prolog> %File: stdin_to_stdout.pl

- initialization(main).

main :- repeat, get_char(X), put_char(X), X == end_of_file, fail. </lang>

Invocation at the command line (with Swi-prolog): <lang sh> swipl stdin_to_stdout.pl </lang>

sed

<lang sh> sed -e </lang>