Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

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

by soonix (Canon)
on Apr 27, 2019 at 18:05 UTC ( [id://1233051]=note: print w/replies, xml ) Need Help??


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

Hmm… Google Translate suggests "مملكة الله"
  • Comment on Re^2: making the Vater Unser non-sectarian using Text::Template

Replies are listed 'Best First'.
Re^3: making the Vater Unser non-sectarian using Text::Template
by Anonymous Monk on Apr 27, 2019 at 18:18 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 :-/
        I don't drink anyway! :)
Re^3: making the Vater Unser non-sectarian using Text::Template
by karlgoethebier (Abbot) on Apr 27, 2019 at 18:16 UTC

    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.

        > allah akbar has 4 syllables

        Sorry, it's Al-la-hu ak-bar, which has 5 syllables. (the u is a grammatical ending here)

        Short vowels are normally not written in Arabic (or other Semitic scripts)

        But you can see the small u (-"accent") ُ in this version:

        اللّٰهُ أَكْبَر

        see also الله_أكبر

        IIRC is Allah just the Arabic version of Hebrew and Aramaic Elohim, etc. and used in by various Christian bibles in Asia and Mizrahi Jews

        Cheers Rolf
        (addicted to the Perl Programming Language :)
        Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-04-24 18:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found