User Tag List

+ Trả lời chủ đề
Trang 1/2 12 CuốiCuối
Hiện kết quả từ 1 tới 10 của 19

Chủ đề: Perl: không ai thích ngôn ngữ nay sao?

  1. #1
    svBK's Newbie
    Tham gia ngày
    Oct 2012
    Bài gửi
    11

    Icon2 Perl: không ai thích ngôn ngữ nay sao?

    print $_," " for qw(tai sao ban khong thich hoc PERL);
    >_

  2. #2
    .:: Grumpy svBKer ::. Avatar của 1973
    Tham gia ngày
    Mar 2010
    Bài gửi
    3.793

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    Quote Nguyên văn bởi mzlla Xem bài viết
    print $_," " for qw(tai sao ban khong thich hoc PERL);
    >_
    Bạn thử nói ra những lý do mà mọi người "phải" thích học Perl xem
    Contact me:
    Email: sangnd [at] svBK.vn
    Personal website: My Blog | Chat với người lạ
    Facebook Page của Bách Khoa Forum: http://www.facebook.com/svbk.vn

  3. #3
    HUT's Student
    Tham gia ngày
    Feb 2012
    Bài gửi
    272

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    Cũng có hứng thú với Perl nhưng chưa có điều kiện học.
    Perl thường được dùng để viết các script hệ thống Unix, làm web động, ...
    Điểm mạnh của Perl là xử lý chuỗi. Điểm đặc biệt của Perl là cùng một công việc có thể có nhiều cách làm khác nhau, nhưng đây cũng là điểm yếu: mã nguồn Perl khó đọc. Nhiều lập trình viên Perl thường có sở thích viết các đoạn mã cực kỳ khó hiểu và coi đó là một niềm tự hào.

    VD: Đoạn code in ra câu "Just Another Perl Hacker"
    Mã:
    not exp log srand xor s qq qx xor
    s x x length uc ord and print chr
    ord for qw q join use sub tied qx
    xor eval xor print qq q q xor int
    eval lc q m cos and print chr ord
    for qw y abs ne open tied hex exp
    ref y m xor scalar srand print qq
    q q xor int eval lc qq y sqrt cos
    and print chr ord for qw x printf
    each return local x y or print qq
    s s and eval q s undef or oct xor
    time xor ref print chr int ord lc
    foreach qw y hex alarm chdir kill
    exec return y s gt sin sort split
    http://en.wikipedia.org/wiki/Just_another_Perl_hacker

  4. Có 2 thành viên cảm ơn bài viết của boss14420 có chất lượng:


  5. #4
    [ -~] Avatar của bino1810
    Tham gia ngày
    Mar 2012
    Bài gửi
    424

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    @mzlla: có những cái không phải cứ thích là được.
    SVBK.VN Kết nối bạn bè - Bách Khoa tụ hội

  6. #5
    .:: Grumpy svBKer ::. Avatar của 1973
    Tham gia ngày
    Mar 2010
    Bài gửi
    3.793

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    Xử lý chuỗi thì mình được biết python cũng rất mạnh trong khoản đó rồi mà.

  7. #6
    svBK's Newbie
    Tham gia ngày
    Oct 2012
    Bài gửi
    11

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    Quote Nguyên văn bởi boss14420 Xem bài viết
    Cũng có hứng thú với Perl nhưng chưa có điều kiện học.
    Perl thường được dùng để viết các script hệ thống Unix, làm web động, ...
    Điểm mạnh của Perl là xử lý chuỗi. Điểm đặc biệt của Perl là cùng một công việc có thể có nhiều cách làm khác nhau, nhưng đây cũng là điểm yếu: mã nguồn Perl khó đọc. Nhiều lập trình viên Perl thường có sở thích viết các đoạn mã cực kỳ khó hiểu và coi đó là một niềm tự hào.

    VD: Đoạn code in ra câu "Just Another Perl Hacker"
    Mã:
    not exp log srand xor s qq qx xor
    s x x length uc ord and print chr
    ord for qw q join use sub tied qx
    xor eval xor print qq q q xor int
    eval lc q m cos and print chr ord
    for qw y abs ne open tied hex exp
    ref y m xor scalar srand print qq
    q q xor int eval lc qq y sqrt cos
    and print chr ord for qw x printf
    each return local x y or print qq
    s s and eval q s undef or oct xor
    time xor ref print chr int ord lc
    foreach qw y hex alarm chdir kill
    exec return y s gt sin sort split
    http://en.wikipedia.org/wiki/Just_another_Perl_hacker
    =hacker=eval q s undef or oct xor
    time xor ref print chr int ord lc
    foreach qw y hex alarm chdir kill
    exec return y s gt sin sort split
    =cut
    =a  =print qq s s
    =cut
    =perl: int eval lc qq y sqrt cos
    and print chr ord for qw x printf
    each return local x y
    =cut
    =a   : scalar srand print qq
    q q
    =cut
    =another: int
    eval lc q m cos and print chr ord
    for qw y abs ne open tied hex exp
    ref y m
    =cut
    =just: 0 xor s qq qx xor
    s x x length uc ord and print chr
    ord for qw q join use sub tied qx
    xor eval
    =cut

    #minh khong phai la svbk. Tin minh tu hoc thoi. Mong moi nguoi chi bao nhieu
    Lần sửa cuối bởi mzlla; 30-12-2012 lúc 08:46 PM

  8. #7
    Điều hành viên Avatar của Infoboy
    Tham gia ngày
    Aug 2008
    Bài gửi
    472

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    đọc chả hiểu gì cả , mình đang học python và thấy nó xử lý text cũng rất tốt
    sắp tới tháng 2 trên edX có mở lớp Introduction to Computer Science and Programming do các GS của MIT dạy, có ai định đăng ký học ko

    p/s: họ sử dụng Python làm ngôn ngữ chính
    Các video của khóa học trước
    http://ocw.mit.edu/courses/electrica...ideo-lectures/
    Chúa trao cơ hội cho người đã chuẩn bị

  9. Tớ cảm ơn Infoboy đã chia sẻ.


  10. #8
    HUT's Student
    Tham gia ngày
    Feb 2012
    Bài gửi
    272

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    Cái mạnh của perl trong xử lý chuỗi là các thao tác regex được biểu diễn bằng các toán tử chứ không phải hàm thư viện như nhiều ngôn ngữ khác. perl được sinh ra để làm việc đó.

  11. #9
    svBK's Newbie
    Tham gia ngày
    Oct 2012
    Bài gửi
    11

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    $a=<<TAG
    <a onclick="alert('>')" onmousemove='alert(")'> click me </a>
    TAG
    ;
    $a =~ /<(\w+)(\s*?(\w+)=((".*?")|('.*?')))*.*?>/;
    >_

    đây là đoạn code trong Perl mình thử bắt tagName và thuộc tính, nội dung của thuộc tính:

  12. #10
    svBK's Newbie
    Tham gia ngày
    Oct 2012
    Bài gửi
    11

    Mặc định Re: Perl: không ai thích ngôn ngữ nay sao?

    day la doan code lay thong tin kinh te tu trang VnEconomy. dung perl rat ngan gon
    #perl
    print "Content-type: text/html\n\n";

    print<<HTML
    <!doctype html>
    <html>
    <head>
    <meta charset="utf-8"/>
    </head>
    </body>

    HTML
    ;
    use LWP::Simple;
    $html=get("http://vneconomy.vn/");
    $html=~ /<table\s*class\s*=\s*"indexer"/m;
    print $&;
    $html=$';#'
    $html=~/<\/table\s*>/;
    print "$`" ;
    print $& ;
    print <<HTML
    </body>
    </html>
    HTML
    ;

  13. Tớ cảm ơn mzlla đã chia sẻ.


+ Trả lời chủ đề
Trang 1/2 12 CuốiCuối

Thông tin chủ đề

Users Browsing this Thread

Hiện có 1 người đọc bài này. (0 thành viên và 1 khách)

Từ khóa (Tag) của chủ đề này

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình


About svBK.VN

    Bách Khoa Forum - Diễn đàn thảo luận chung của sinh viên ĐH Bách Khoa Hà Nội. Nơi giao lưu giữa sinh viên - cựu sinh viên - giảng viên của trường.

Follow us on

Twitter Facebook youtube