Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: making the Vater Unser non-sectarian using Text::Template

by karlgoethebier (Abbot)
on Apr 27, 2019 at 17:26 UTC ( [id://1233049]=note: print w/replies, xml ) Need Help??


in reply to making the Vater Unser non-sectarian using Text::Template

الله أكبر

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Replies are listed 'Best First'.
Re^2: making the Vater Unser non-sectarian using Text::Template
by soonix (Canon) on Apr 27, 2019 at 18:05 UTC
      From my limited Arabic I'd say you wrote something like "Kingdom God" and KGB something like "God big" probably "Alahu Akbar"
        yep. However, OP asked for a substitute of "thy kingdom come", so both of our answers are not usable :-/

      Kann sein. Ich meinte "Gott ist groß." Gruß Karl

      «The Crux of the Biscuit is the Apostrophe»

      perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

        Thanks for your response, karlgoethebier, 'allah akbar' has 4 syllables and seems to fit in. I provide an example of output I like.

        Output:

        (silence), who art in heaven, Hallowed be your name. allah akbar, Your will be done, On earth as it is in heaven. Give us this day our daily bread; And forgive us our trespasses, As we also have forgiven our trespasses; And lead us not into temptation, But deliver us from being too serious. For thine is the big blue boat and the power and the glory, for ever. +Amen. (silence) grant me the serenity To accept the things I cannot change, Courage to change the things I can, And wisdom to know the difference.
        #!/usr/bin/perl -w use 5.011; use Path::Tiny; use utf8; use open OUT => ':utf8'; use Data::Dump; use Text::Template; use POSIX qw(strftime); binmode STDOUT, 'utf8'; my $input = <<'(END INPUT)'; {$God}, who art in heaven, Hallowed be {$thy} name. {$Thy_kingdom_come}, {$Thy} will be done, On earth as it is in heaven. Give us this day our daily bread; And forgive us our trespasses, As we also have forgiven our trespasses; And lead us not into temptation, But deliver us from {$evil}. For thine is the {$kingdom} and the power and the glory, for ever. Ame +n. (END INPUT) my $input2 = <<'(END INPUT2)'; {$God} grant me the serenity To accept the things I cannot change, Courage to change the things I can, And wisdom to know the difference. (END INPUT2) my $path1 = Path::Tiny->cwd; say "path1 is $path1"; say "input is $input"; ## populate hash my $data = [ [ 'God', '(silence)', '&#1041;&#1086;&#1088;&#1080;&#1089;&#1073;&#1 +086;&#1078;', 'Elohim', 'Group Of Drunks' ], [ 'Thy_kingdom_come', 'Armageddon can wait', 'allah akbar', 'Let sci +ence be' ], [ 'evil', 'ego', 'your followers', 'being too serious' ], [ 'Thy', 'Your' ], [ 'thy', 'your' ], [ 'kingdom', '&#1062;&#1072;&#1088;&#1089;&#1090;&#1074;&#1086;', 'r +ealm', 'big blue boat' ] ]; #dd $data; ## main loop # set trials my $trials = 15; my $dummy = 1; my $first_second = strftime( "%d-%m-%Y-%H-%M-%S", localtime ); while ( $trials > 0 ) { # create an output file my $out_file = $path1->child( 'my_data', "$first_second", "$first_second\.$dummy. +txt" ) ->touchpath; say "out_file is $out_file"; my %vars = map { $_->[0], $_->[ rand( $#{$_} ) + 1 ] } @{$data}; my $rvars = \%vars; my $template = Text::Template->new( TYPE => 'STRING', ENCODING => 'UTF-8', SOURCE => $input ) or die "Couldn't construct template: $!"; my $result = $template->fill_in( HASH => $rvars ); $out_file->append_utf8($result); $out_file->append_utf8("\n"); my $template2 = Text::Template->new( TYPE => 'STRING', ENCODING => 'UTF-8', SOURCE => $input2 ) or die "Couldn't construct template: $!"; my $result2 = $template2->fill_in( HASH => $rvars ); $out_file->append_utf8($result2); $trials -= 1; $dummy += 1; } # end while condition print "OUTFILES*******************\n"; foreach my $filename ( glob("./my_data/$first_second/*") ) { open my $fh, '<', $filename or die "can't print $filename! $!"; while ( my $line = <$fh> ) { print "$line"; } say "-------------"; close $fh; } __END__

        I've field tested 'allah akbar' as a substitute for 4-syllabled things, and I quite like it. It has a lot of breath, which in many languages is a synonym for "spirit."

        Thanks all for comments. I wanted to discuss further, but it may have been more about comparative religion and less about perl, so maybe best not.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1233049]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2024-04-19 14:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found