Forum Debian Users Gang

Składnia Basha i Perla jest praktycznie jednakowa, więc jak Cię Bash nie przerasta, to Perl też nie.

Ten [url=http://jacekalex.sh.dug.net.pl/rssperl]skrypcio[/url] zaczął się od Basha, ale kiedy trzeba było czesać output z javascripta, to Basha "zabrakło". ;)

Ostatnio edytowany przez Jacekalex (2014-05-14 20:43:42)

z "normalnych" to w pierwszej kolejności (mimo swojej ociężałości) wymieniłbym jave ale to już dyskucja na inny wątek ;)

@azhag - ale nikt nie przeczy że znajomość powłoki jest przydatna ;) Ale do tzw programowania (z zapatrzeniem w przyszłość/cv) lepiej łyknąć na początek perla ;)

Fajnie że taki wątek powstał, chciałbym zapytać jeśli już zeszliście na wątek Perla/Pythona, którego aktualnie lepiej się uczyć? Który jest bardziej perspektywiczny i może się bardziej przydać w ewentualnej pracy? Dodam że uczę się sam już Perla od kilku dobrych miesięcy, ale nie wiem czy to był dobry wybór.

I jeśli już jesteśmy na temacie Perla, to chciałbym spytać, czy gdy piszecie skrypty w Perlu to używacie osobnych modułów np. do wyszukiwania plików typu File::Find, File::Basename, czy po prostu używacie komend systemowych z użyciem system("") ?

Wielki plus dla Pythona za czytelność kodu. Skrypty Perla to jakaś sieczka - łatwo się piszę cholernie trudno się czyta i debuguję...

Ja tam parę razy zaglądałem  do trzech skryptów Perla, nawet nanosiłem własne poprawki w dwóch z nich, i myślałem, że je pisali Perlowcy,
a teraz czytam, ze to byli zwykli skrypciarze. :D

I teraz mam zagwozdkę, kto ten soft tworzy, co to za skrypciarze.

Wspomniane skrypty to:
/usr/sbin/spamd  - tylko odczyt.
/usr/sbin/amavisd  - poprawki.
/var/qmail/bin/qmail-scanner-queue.pl  - poprawki.

Do głowy by mi nie przyszło, że taki soft do walki ze spamem, używany na tysiącach serwerów na całym świecie  skrypciarze piszą. :D

Czego to się człowiek dowiaduje na stare lata. xD

EDIT:

[quote=megabajt]Wielki plus dla Pythona za czytelność kodu. Skrypty Perla to jakaś sieczka - łatwo się piszę cholernie [b]trudno się[/b] czyta i [b]debuguję[/b]...[/quote]
Raczej prosto, nawet prościej, niż Basha, wystarczy moduł [url=http://perldoc.perl.org/diagnostics.html][b]diagnostics[/b][/url].

Pozdro
;-)

Ostatnio edytowany przez Jacekalex (2014-05-15 02:06:03)

Więcej kodu perlowego?
Najdłuższy jest rssperl (sznurka masz gdzieś wyżej), jest też skrypt do wysyłania komunikatów przez padu-dziadu:

#!/usr/bin/perl
use strict;
use Net::Gadu; 
use Unicode::MapUTF8 qw(to_utf8 from_utf8);
my $gg_mess="grzegżółka";
my $gg_login="{NUMEREK_PADU}";
my $gg_pass="{HASEŁKO_DZIADU}";
my $gg_chat_number = $ARGV[0];


while (<STDIN>)
{
    $gg_mess = $_;
}


$gg_mess = from_utf8( { -string => $gg_mess, -charset => 'ISO-8859-2' } );

my $gg = new Net::Gadu(async => 1);

$gg->login($gg_login, $gg_pass, $Net::Gadu::STATUS_INVISIBLE) or die "Login error\n";   
    while ($gg->check_event() == 1){
        my $e = $gg->get_event();
        my $type = $e->{type};            
    if ($type == $Net::Gadu::EVENT_CONN_SUCCESS){ 
        # print "CONNECTED\n";
         $gg->notify();
         $gg->send_message_chat($gg_chat_number, $gg_mess);  
            }
    }                  
 $gg->logoff();

To napisał Kolo na forum buntu.

A to już moje wypociny:

#!/usr/bin/perl

use strict;
use warnings;
use Finance::Bank::mBank;
use encoding qw(utf8);
# use diagnostics -verbose;
# enable  diagnostics;

use Gtk2::Notify -init, 'Basic';

my $mbank = Finance::Bank::mBank->new(
         userid   => '{NUMER_PACJENTA}',
         password => '{HASELKO}'
           );
           for my $account ($mbank->accounts) {
           my $konto= $account->{account_name};
           if ($konto=~m/eKONTO/){
                my $ekontosaldo =  $account->{balance};
                my $ekontodost = $account->{available};
                
                my $zlotek = Gtk2::Notify->new("Na ekoncie zostało $ekontodost", "Saldo wynosi $ekontosaldo", 
 '/home/pacjent/.icons/mbank.jpg');
                $zlotek ->show;

                my $ekonto = "na ekoncie:\n  saldo = $ekontosaldo\n  dostępne= $ekontodost\n\n";
                print $ekonto; 
                    }
                
             if ($konto=~m/eMAX/){
                my $emaxsaldo =  $account->{balance};
                my $emaxdost = $account->{available};        
                
                print "na emaxie:\n     saldo = $emaxsaldo\n     dostępne= $emaxdost\n\n"; 
                }

               
            };

Ten skrypcio przed zmianami na stronie Mbanku ładnie wyświetlał stan konta, obecnie nie działa, ale masz w nim przykład wyświetlania powiadomień notify w Gtk2.

Tylko moje wypociny śmierdzą lamerstwem, lepiej zobacz w systemie, pół dpkg jest napisane w perlu, w repo masz skrypta sendxmpp w perlu,
ze setkę innych programów również, a na http://search.cpan.org/
jest dokumentacja modułów, wraz z przykładowymi skryptami.
Ja zazwyczaj, zanim coś napiszę, to przeglądam z 5 - 50 przykładów podobnego kodu na necie.

Ja poza tym nie jestem tu wcale specem od Perla, jest kilkadziesiąt osób, które znają go 1500 razy lepiej.

W każdym razie kod jest dość prosty, pisze się przyjemnie.

Pozdro
;-)

Ostatnio edytowany przez Jacekalex (2014-05-16 04:34:39)

Tutaj masz przykład, jak znaleźć własną doopę w syslogu:

#!/usr/bin/perl
use strict;
use warnings;


  open(FILE, "< /var/log/syslog") or die ": unable to open syslog: $!\n";
  
  while (<FILE>) {

 my $print = (<FILE>);
#    chomp $print;
    print $print if ($print =~/dupa/);

    
}
close (FILE);

Samo poszukiwanie byłoby prostsze  w bashu

grep dupa /var/log/syslog

Ale jakbyś chciał te logi czesać kilkoma regexami, wyciągać z nich wartości do zmiennej i obudowywać funkcjami, to Basha przeważnie szybko zabraknie. ;)

Jak np w tym przypadku:
http://forum.dug.net.pl/viewtopic.php?id=22977

Pozdro
:D

Ostatnio edytowany przez Jacekalex (2014-05-16 18:34:34)

bossie to co tam dałeś to więcej w manie wyczytam, chodziło mi bardziej o coś podręcznikowego co wyczerpuje całkowicie temat razem z ćwiczeniami, przykładami trikami itd..;)

[b]Lista 2500 języków programowania wraz z ich opisami[/b] [url]http://people.ku.edu/~nkinners/LangList/Extras/langlist.htm[/url]

Lista dwudziestu najpopularniejszych języków programowania

    C
    Java
    Objective-C
    C++
    C#
    (Visual) Basic
    PHP
    Python
    JavaScript
    Visual Basic .NET
    Ruby
    Transact-SQL
    Perl
    F#
    Język asemblera
    Lisp
    PL/SQL
    MATLAB
    Delphi/Object Pascal
    D

[url]http://lists.gnu.org/archive/html/info-gnu/2011-02/msg00012.html[/url]

Chyba dość wyczerpujące? [url]http://www.gnu.org/software/bash/manual/bashref.html[/url]

Ostatnio edytowany przez tajwan (2014-05-17 16:05:04)