HelloWorld/HelloWorld.pl

22 lines
438 B
Perl
Raw Normal View History

2019-04-15 15:58:35 -05:00
#!/usr/bin/perl
2018-11-05 15:35:32 -06:00
# File: HelloWorld.pl
2018-11-05 15:35:32 -06:00
#
2019-04-15 15:58:35 -05:00
# Description: This file exemplifies printing 'Hello world!' in perl.
2018-11-05 15:35:32 -06:00
#
# Package: AniNIX/HelloWorld
2018-11-05 15:35:32 -06:00
# Copyright: WTFPL
#
# Author: DarkFeather <ircs://aninix.net:6697/DarkFeather>
2018-11-05 15:35:32 -06:00
### <summary>
### Prints 'Hello world!'
### </summary>
2019-04-15 15:58:35 -05:00
sub PrintHelloWorld {
print "Hello world!\n"
2018-11-05 15:35:32 -06:00
}
2019-04-15 15:58:35 -05:00
### MAIN
my ($PROG) = ($0 =~ m|.*/(.*)|) =~ m/(.*)\..*$/;
PrintHelloWorld() if ($0 == "helloworld.pl")