From d30a3554f00097b3ff9c41d1acccd6a392817a99 Mon Sep 17 00:00:00 2001 From: Stefan Suhren Date: Fri, 2 Oct 2015 11:07:41 +0200 Subject: Create 1.2.* --- Aufgabe1/skript2.pl | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 Aufgabe1/skript2.pl diff --git a/Aufgabe1/skript2.pl b/Aufgabe1/skript2.pl new file mode 100644 index 0000000..186b3cd --- /dev/null +++ b/Aufgabe1/skript2.pl @@ -0,0 +1,39 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: script2.pl +# +# USAGE: ./script2.pl +# +# DESCRIPTION: Adsense name finder. +# +# OPTIONS: --- +# REQUIREMENTS: --- +# BUGS: --- +# NOTES: --- +# AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de +# ORGANIZATION: FH Südwestfalen, Iserlohn +# VERSION: 1.0 +# CREATED: 02.10.2015 10:56:07 +# REVISION: --- +#=============================================================================== + +use strict; +use warnings; +use utf8; + +my @buchstaben1 = ('b', 'm', 'n'); +my @buchstaben2 = ('a', 'e', 'i', 'o', 'u'); +my @buchstaben3 = ('b', 'c', 'd', 'x', 'y', 'z'); + +foreach my $i1 (@buchstaben1) +{ + foreach my $i2 (@buchstaben2) + { + foreach my $i3 (@buchstaben3) + { + printf $i1 . $i2 . $i3 . " "; + } + printf "\n"; + } +} -- cgit v1.2.3-70-g09d2