2019-04-15 15:58:35 -05:00
|
|
|
#!/usr/bin/perl
|
2018-11-05 15:35:32 -06:00
|
|
|
|
2019-04-15 16:21:46 -05: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::Foundation/HelloWorld
|
|
|
|
|
# Copyright: WTFPL
|
|
|
|
|
#
|
|
|
|
|
# Author: DarkFeather <darkfeather@aninix.net>
|
|
|
|
|
|
|
|
|
|
### <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")
|
