HelloWorld/HelloWorld.pl

#!/usr/bin/perl

# File: HelloWorld.pl
#
# Description: This file exemplifies printing 'Hello, World!' in perl.
#
# Package: AniNIX/HelloWorld
# Copyright: WTFPL
#
# Author: DarkFeather <ircs://aninix.net:6697/DarkFeather>

### <summary>
### Prints 'Hello, World!'
### </summary>
sub PrintHelloWorld {
    print "Hello, World!\n"
}

### MAIN
my ($PROG) = ($0 =~ m|.*/(.*)|) =~ m/(.*)\..*$/;
PrintHelloWorld() if ($0 == "helloworld.pl")
Working state 2019-04-15 15:58:35 -05:00			`#!/usr/bin/perl`
Major overhaul getting started 2018-11-05 15:35:32 -06:00
Adding hooks directory; comment cleanup for professionalism 2019-04-15 16:21:46 -05:00			`# File: HelloWorld.pl`
Restructuring tests 2023-10-03 12:43:34 -05:00			`#`
			`# Description: This file exemplifies printing 'Hello, World!' in perl.`
			`#`
Updating boilerplate headers to fit standards 2021-12-01 13:12:27 -06:00			`# Package: AniNIX/HelloWorld`
Major overhaul getting started 2018-11-05 15:35:32 -06:00			`# Copyright: WTFPL`
Restructuring tests 2023-10-03 12:43:34 -05:00			`#`
Updating boilerplate headers to fit standards 2021-12-01 13:12:27 -06:00			`# Author: DarkFeather <ircs://aninix.net:6697/DarkFeather>`
Major overhaul getting started 2018-11-05 15:35:32 -06:00
			`### <summary>`
Restructuring tests 2023-10-03 12:43:34 -05:00			`### Prints 'Hello, World!'`
Major overhaul getting started 2018-11-05 15:35:32 -06:00			`### </summary>`
Working state 2019-04-15 15:58:35 -05:00			`sub PrintHelloWorld {`
Restructuring tests 2023-10-03 12:43:34 -05:00			`print "Hello, World!\n"`
Major overhaul getting started 2018-11-05 15:35:32 -06:00			`}`

Working state 2019-04-15 15:58:35 -05:00			`### MAIN`
			`my ($PROG) = ($0 =~ m\|./(.)\|) =~ m/(.)\..$/;`
			`PrintHelloWorld() if ($0 == "helloworld.pl")`