Hello world/Line printer: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
No edit summary |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 157:
}</lang>
=={{header|C sharp}}==
"My Printer" should be replaced with the friendly name of the printer.
Line 233 ⟶ 222:
ClosePrinter(hPrinter);
}
}</lang>
=={{header|C++}}==
<lang cpp>#include <iostream>
#include <fstream>
int main(){
std::ofstream lprFile;
lprFile.open( "/dev/lp0" );
lprFile << "Hello World!\n";
lprFile.close();
return 0;
}</lang>
Line 403 ⟶ 404:
( scratchpad ) USE: io.launcher
( scratchpad ) "lpr" utf8 [ "Hello World!" print ] with-process-writer</lang>
=={{header|Forth}}==
Line 557:
print(); //Opens a dialog.
</lang>
=={{header|Julia}}==
Line 627 ⟶ 626:
fprintf(fid,'Hello World!\n');
fclose(fid);</lang>
=={{header|MIXAL}}==
<lang MIXAL>
LPR EQU 18
STRING EQU 2000
ORIG 3000
START IOC 0(LPR)
OUT STRING(LPR)
HLT
ORIG STRING
ALF HELLO
ALF WORL
ALF D!
END START
</lang>
=={{header|N/t/roff}}==
Line 650 ⟶ 664:
lp.writeln "Hello World"
lp.close()</lang>
=={{header|OCaml}}==
Line 712 ⟶ 711:
print O "Hello World!\n";
close O;</lang>
=={{header|Phix}}==
Line 807 ⟶ 793:
(print "Hello World!")
</lang>
=={{header|Raku}}==
(formerly Perl 6)
<lang perl6>my $lp = open '/dev/lp0', :w;
$lp.say: 'Hello World!';
$lp.close;</lang>
Or using <code>given</code> to avoid having to write the variable name repeatedly:
<lang perl6>given open '/dev/lp0', :w {
.say: 'Hello World!';
.close;
}</lang>
=={{header|REXX}}==
Line 815:
$= 'Hello World!' /*define a string to be used for output*/
'@ECHO' $ ">PRN" /*stick a fork in it, we're all done. */</lang>
=={{header|Ring}}==
<lang ring>
lp = fopen("/dev/lp0","w") fputs(lp,"Hello world!") fclose(lp)
</lang>
=={{header|RPG}}==
Line 824 ⟶ 829:
Oqsysprt E
O 11 'Hello world'
</lang>
Line 838:
=={{header|Run BASIC}}==
<lang runbasic> shell$("echo \"Hello World!\" | lpr")</lang>
=={{header|Rust}}==
Line 856 ⟶ 848:
file.write(b"Hello, World!").unwrap();
}</lang>
=={{header|Salmon}}==
Assuming /dev/lp0 accesses the printer:
<lang Salmon>open_output_text_file("/dev/lp0").print("Hello World!");</lang>
Assuming lpr is a command that prints to a printer:
<lang Salmon>`echo "Hello World!" | lpr`;</lang>
=={{header|Scala}}==
Line 931:
<lang SNOBOL4> output(.print,25,"lpt1")
print = "Hello, world."</lang>
=={{header|Swift}}==
<lang Swift>import Foundation
| |||