=()= / Говнокод #8784 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
if ($movie->{'genre'}=~m/\,+/)  {
                my @genre = split(',',$movie->{'genre'}) if $movie->{'genre'};
                my $genre = join(",", split(',', $movie->{'genre'}, 2));
                for (my $i = 0; $i <=1; $i++) {
                    $genre .= $genre[$i].',' if @genre;
                };
                $genre =~s/\,$//;
                $movie->{'genre'} = $genre if ($genre);
};

На чем-то конкретном внимание заострять не буду.
Код достаточно прост, но довольно неуклюж.

Запостил: santa_microbe santa_microbe, (Updated )

Комментарии (33) RSS

  • ava Dummy00001 # Ссылка на оригинал 0 

    my $genre = join(",", split(',', $movie->{'genre'}, 2));

    здесь какая-то магия творится...
    Ответить

    • ava santa_microbe # Ссылка на оригинал 0 ⇈

      я тоже так сделал но так не сработает,
      скажем split(",", "test1, test2,test3", 2) отдаст массив ("test1", "test2,test3")

      Сам был удивлен )
      Получить что на выходе ты получишь ту же самую строку что и на входе
      Ответить

      • ava Dummy00001 # Ссылка на оригинал 0 ⇈

        бендер, вы тормозите: join('x', split('x', $whatever)) есть nop.

        ЗЫ перевожу для пыхников: implode( 'x', explode( 'x', $whatever ) )
        Ответить

  • ava gegMOPO4 # Ссылка на оригинал 0

    Ехал genre через genre, сунул genre genre в genre, genre genre genre genre…
    Ответить

    • ava Lure Of Chaos # Ссылка на оригинал 0 ⇈

      /**@dialog Dialog*/@Dialog(dialog="dialog")Dialog.Dialog dialog = (Dialog.Dialog)dialog.Dialog(dialog = "dialog") // dialog
      Ответить

  • ava guest # Ссылка на оригинал 0

    $movie->{'genre'} = join(',', @{[split(',', $movie->{'genre'})]}[0..1]) if $movie->{'genre'} =~ /,/;
    Ответить

  • ava guest # 0

    г.Y,J"F?E"C:W:LX.O!H)B!V(N(Z:I$P Q(N$Y!A"M)O?Y:O,JE$S K$K(F!B$JCW!P:D!K,Y,B(T?X?Q.U$F)C(FT X.P,W?S.C)Q!Y?D(J$X"C"V.Y"RL)Y?H$I.FE$D?Y:L!X!P.A$R.M.L"Q!E)Y?K G,I?X:T:I:X.XE$C!W!XK$G:P?C?H"E?A X,R)F!B!T MV!S(X.B(PVR:B.T:A.S.Y E!F.R(G F J)V?R"P RM)Q,L$U?CU?O:Z,N WU)T?HX!A,U"F)O$C"G!K,N!Y?B(S!X)L?W!H R)C.JQ$E?X(V!O E)E K.I Z(K.C$A?W(D.D.X.C$A:W!Z(W(W)R$D,P$W"Z?G,Z(F"U(VU?K?L.IF.V(Q R:K:U(A J!Y$D$X)T Q!S)V:P:E"U O!X!F?D.Q!W Q$I"M:R.Y!S!W$W?S.K I Y?V.U!O)V V:K.S)V,P)M!W,X)I?A L!Y G!RM.R?C:A?O!HVK.I:D?C!Z.O!G:M!F,FDX(QY.J"Y"Z(S!V,Z?L R$CU!S:G E(K:N)D?P?G)P?A?X:E)S(XF?Y!U$N?C$X:J,SJ(D.MC?S"I(QP)A Y(C,I)F:L A)KQ R,D E$U!F(L T)Q!BP(R(X"YB?D!R L"Z O"P"W.U$EA$I)O D?R!W)O L$M$R)R"LV:V"N"L"U(L$H?B J:F E!Q$X"S,OF"X?Y T:I$R.W?D$D H(S:X.Z$R.T.S.I!Y(E!P)B?G?F$M)Z"R"K!F!M I H)SP(MA?F)C!L OD,O!V R?Y$P U!B!Z$C(P"H$J:N.E$J"I?B(Y,M$O:Q.F(Y Q?KY"I!Q.O!M"R)E"CПJWWFOSKELZITISGZDEDGNETMBXXZHCHFSHKYDPRVBCOCNNIIDREEMGLIIHXIOPMYLGODNJTTNCVAMRYAJKWCABALQHGNAOFGJMNMMQWUNRNOQRVMBKJHYMKTRKFHNTXKLGRYEPWQRFQCAQWNMPWFDTKSZDCDFJKGFWQSMOHHIIOEYMKGWKSGUXPCAHWATZEHGVIJPCFFFDKIMKTMGOWYZXBTPJCQKUOHJSATNJQFSTUSGUTESYTIHUZPTIGSYMVJHVJIKLCVSXYWMECMNJWRZQVJYFWDEGX
    Ответить

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓