|
|
#11
21.01.2019, 12:21
|
|||
|
|||
remap & recived
Rinat H. Sadretdinow написал(а) к Brother Rabbit в Jan 19 11:10:38 по местному времени:
Нello Brother! 21 Jan 19 09:59, you wrote to Alexey Vissarionov: BR>>> $readdress{0}="2:460/5858"; BR>>> $readdress{1}="2:460/58.58"; BR>>> $readdress{2}="2:460/58.10"; AV>> Мои глаза... как это развидеть? AV>> my @dest_addr = qw AV>> ( AV>> 2:460/5858 AV>> 2:460/58.58 AV>> 2:460/58.10 AV>> ); BR> И какая разница? ;) Работает так же, но у Виссарионова красивше, а у тебя похоже на индусскую копипасту. Bye! --- GoldED+/LNX 1.1.5-b20170303 
|
|
#12
21.01.2019, 13:12
|
|||
|
|||
|
remap & recived
Brother Rabbit написал(а) к Rinat H. Sadretdinow в Jan 19 11:59:56 по местному времени:
Нi, Rinat! 21 янв 19 11:10, Rinat Н. Sadretdinow -> Brother Rabbit: BR>>>> $readdress{0}="2:460/5858"; BR>>>> $readdress{1}="2:460/58.58"; BR>>>> $readdress{2}="2:460/58.10"; AV>>> Мои глаза... как это развидеть? AV>>> my @dest_addr = qw AV>>> ( AV>>> 2:460/5858 AV>>> 2:460/58.58 AV>>> 2:460/58.10 AV>>> ); BR>> И какая разница? ;) RНS> Работает так же, но у Виссарионова красивше, Не спорю. RНS> а у тебя похоже на индусскую копипасту. В моем случае понятней для чтения. Нave nice nights. Brother Rabbit. --- Мне бесполезно что-либо запрещать, я и так не собираюсь ничего делать.
|
|
#13
21.01.2019, 16:21
|
|||
|
|||
|
remap & recived
Rinat H. Sadretdinow написал(а) к Brother Rabbit в Jan 19 15:14:00 по местному времени:
Нello Brother! 21 Jan 19 11:59, you wrote to me: RНS>> а у тебя похоже на индусскую копипасту. BR> В моем случае понятней для чтения. [offtopic on] Ничуть. У него не только красивше, но и как раз понятнее для чтения. [offtopic off] Bye! --- GoldED+/LNX 1.1.5-b20170303
|
|
#14
21.01.2019, 17:12
|
|||
|
|||
|
remap & recived
Michael Dukelsky написал(а) к Brother Rabbit в Jan 19 15:44:16 по местному времени:
Привет, Brother! 21 Jan 19 11:59, Brother Rabbit послал(а) письмо к Rinat Н. Sadretdinow: BR>>>>> $readdress{0}="2:460/5858"; BR>>>>> $readdress{1}="2:460/58.58"; BR>>>>> $readdress{2}="2:460/58.10"; AV>>>> Мои глаза... как это развидеть? AV>>>> my @dest_addr = qw AV>>>> ( AV>>>> 2:460/5858 AV>>>> 2:460/58.58 AV>>>> 2:460/58.10 AV>>>> ); BR>>> И какая разница? ;) RНS>> Работает так же, но у Виссарионова красивше, BR> Не спорю. Дело не в "красивше". Во-первых, ты зачем-то задаёшь три элемента хеша, но пользуешься этим хешем по существу как массивом. Логичней задавать это массивом и использовать цикл for(). Можно задавать массив так, как написал Виссарионов, но я предпочитаю без qw, но с запятыми: my @dest_addr= ( 2:460/5858, 2:460/58.58, 2:460/58.10, ); Во-вторых, лично я идентификатор "readdress" прочёл как "read dress" и представил себе платье, на котором напечатано много (возможно неприличного) текста. :) В этом плане "dest_addr" не вызывает ненужных ассоциаций и вообще понятней, о чём речь. Желаю успехов, Brother! За сим откланиваюсь, Michael. ... node (at) f1042 (dot) ru --- GoldED+/LNX 1.1.5-b20170303
|
|
#15
21.01.2019, 19:22
|
|||
|
|||
|
remap & recived
Michael Dukelsky написал(а) к Brother Rabbit в Jan 19 18:05:08 по местному времени:
Привет, Brother! 21 Jan 19 15:44, Michael Dukelsky послал(а) письмо к Brother Rabbit: MD> Дело не в "красивше". Чтобы не быть голословным, переписал твой скрипт в соответствии со своим предыдущим письмом. Написанное не проверял. my @dest_addr= ( 2:460/5858, 2:460/58.58, 2:460/58.10, ); sub filter() { if (!defined $area) { # it is netmail #--- copy my mail --------------- for my $config_addr (@{$config{addr}}) { if( $toaddr eq $config_addr ) { $text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//; $text =~ s/\x01TOPT \d+\r//; for my $destaddress (@destaddr) { if ( $fromaddr ne $dest_address ) { putMsgInArea( "NetMail", $fromname, $toname, $fromaddr, $dest_address, $subject, $date, $attr, "\001Rem: copy to $dest_address\r$text", 2 ); $change = 1; } } } } #--- copy my mail end --------------- } } Желаю успехов, Brother! За сим откланиваюсь, Michael. ... node (at) f1042 (dot) ru --- GoldED+/LNX 1.1.5-b20170303
|
|
#16
24.01.2019, 18:42
|
|||
|
|||
|
remap & recived
Brother Rabbit написал(а) к Michael Dukelsky в Jan 19 17:22:32 по местному времени:
Нi, Michael! 21 янв 19 18:05, Michael Dukelsky -> Brother Rabbit: MD>> Дело не в "красивше". MD> Чтобы не быть голословным, переписал твой скрипт в соответствии со своим MD> предыдущим письмом. Написанное не проверял. MD> my @dest_addr= MD> ( MD> 2:460/5858, MD> 2:460/58.58, MD> 2:460/58.10, MD> ); MD> sub filter() MD> { MD> if (!defined $area) MD> { MD> # it is netmail MD> #--- copy my mail --------------- MD> for my $config_addr (@{$config{addr}}) MD> { MD> if( $toaddr eq $config_addr ) MD> { MD> $text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//; MD> $text =~ s/\x01TOPT \d+\r//; MD> for my $destaddress (@destaddr) MD> { MD> if ( $fromaddr ne $dest_address ) MD> { MD> putMsgInArea( "NetMail", $fromname, $toname, MD> $fromaddr, MD> $dest_address, $subject, $date, MD> $attr, MD> "\001Rem: copy to MD> $dest_address\r$text", 2 ); MD> $change = 1; MD> } MD> } MD> } MD> } MD> #--- copy my mail end --------------- MD> } MD> } Сделал вот так: #!/usr/bin/perl @my_aka = qw( 2:460/5858 2:460/58.58 2:460/58.10 ); sub filter() { # [... some stuff skipped ...] # #--- copy my mail --------------- if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) { $text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s; $text =~ s/\x01TOPT[ ]\d+\r//s; for my $daddrr (@myaka){ if ( $fromaddr ne $daddrr && $toaddr ne $daddrr) { putMsgInArea( "NetMail", $fromname, $toname, $fromaddr, $d_addrr, $subject, $date, $attr, "\001Rem: copy to $d_addrr\r$text", 2 ); # $change = 1; $newnet=1; } } } #--- copy my mail end --------------- # # [... some stuff skipped ...] } # ---- my subs ----- sub istous() { my ($addrr) = @_; return 1 if !defined($addrr); for my $cfg_addr ( @{$config{addr}} ) { if( $addrr eq $cfg_addr ) { return 1; } } return 0; } sub istoaka() { my ($addrr) = @_; for my $daddr (@myaka){ if( $addrr eq $d_addr) { return 1; } } return 0; } Нave nice nights. Brother Rabbit. --- Не откладывай пьянку на завтра, а секс на старость.
|
|
#17
24.01.2019, 18:42
|
|||
|
|||
|
remap & recived
Brother Rabbit написал(а) к Michael Dukelsky в Jan 19 17:29:00 по местному времени:
Нi, Michael! 21 янв 19 18:05, Michael Dukelsky -> Brother Rabbit: MD>> Дело не в "красивше". MD> Чтобы не быть голословным, переписал твой скрипт в соответствии со своим MD> предыдущим письмом. Написанное не проверял. MD> my @dest_addr= MD> ( MD> 2:460/5858, MD> 2:460/58.58, MD> 2:460/58.10, MD> ); MD> sub filter() MD> { MD> if (!defined $area) MD> { MD> # it is netmail MD> #--- copy my mail --------------- MD> for my $config_addr (@{$config{addr}}) MD> { MD> if( $toaddr eq $config_addr ) MD> { MD> $text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//; MD> $text =~ s/\x01TOPT \d+\r//; MD> for my $destaddress (@destaddr) MD> { MD> if ( $fromaddr ne $dest_address ) MD> { MD> putMsgInArea( "NetMail", $fromname, $toname, MD> $fromaddr, MD> $dest_address, $subject, $date, MD> $attr, MD> "\001Rem: copy to MD> $dest_address\r$text", 2 ); MD> $change = 1; MD> } MD> } MD> } MD> } MD> #--- copy my mail end --------------- MD> } MD> } Сделал вот так: #!/usr/bin/perl @my_aka = qw( 2:460/5858 2:460/58.58 2:460/58.10 ); sub filter() { # [... some stuff skipped ...] # #--- copy my mail --------------- if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) { $text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s; $text =~ s/\x01TOPT[ ]\d+\r//s; for my $daddrr (@myaka){ if ( $fromaddr ne $daddrr && $toaddr ne $daddrr) { putMsgInArea( "NetMail", $fromname, $toname, $fromaddr, $d_addrr, $subject, $date, $attr, "\001Rem: copy to $d_addrr\r$text", 2 ); # $change = 1; $newnet=1; } } } #--- copy my mail end --------------- # # [... some stuff skipped ...] } # ---- my subs ----- sub istous() { my ($addrr) = @_; return 1 if !defined($addrr); for my $cfg_addr ( @{$config{addr}} ) { if( $addrr eq $cfg_addr ) { return 1; } } return 0; } sub istoaka() { my ($addrr) = @_; for my $daddr (@myaka){ if( $addrr eq $d_addr) { return 1; } } return 0; } Если больше грубых косяяков нет, то может стоит в FAQ добавить? Довольно часто этот вопрос возникает. Нave nice nights. Brother Rabbit. --- Не откладывай пьянку на завтра, а секс на старость.
|
|
#18
24.01.2019, 21:52
|
|||
|
|||
|
remap & recived
Michael Dukelsky написал(а) к Brother Rabbit в Jan 19 20:33:20 по местному времени:
Привет, Brother! 24 Jan 19 17:29, Brother Rabbit послал(а) письмо к Michael Dukelsky: BR> Если больше грубых косяяков нет, По поводу кода ответил нетмейлом. BR> то может стоит в FAQ добавить? Довольно часто этот вопрос возникает. Какой FAQ? Давно протухший FAQ лежал на неизменямом cvs сервере на sf.net. Нужно было привести FAQ в чувство и сделать робота, который берёт его с гитхаба и постит. За это 18-го января прошлого года взялся Лёша Виссарионов. Шесть дней назад был первый юбилей. :-) И потом в FAQ обычно добавляют вопросы и ответы. А код кладут в репозиторий. Так что, когда код будет готов, делай pull request с кодом и с вопросом-ответом в FAQ. Желаю успехов, Brother! За сим откланиваюсь, Michael. ... node (at) f1042 (dot) ru --- GoldED+/LNX 1.1.5-b20170303
|
|
#19
09.03.2019, 12:03
|
|||
|
|||
|
Re: remap & recived
Mikhail Stakhanov написал(а) к Brother Rabbit в Mar 19 10:13:10 по местному времени:
Здравствуйте, Brother! Ответ на сообщение Brother Rabbit (2:460/5858) к Michael Dukelsky, написанное 24 янв 19 в 17:22: Проблема в том что для areafix тоже все уходит на .1 а почему так не работает ? (тестирую, всеравно пересылает) кстати, перл к регистру букв восприимчив же ? my @rotobs = ("areafix","Areafix","AreaFix","filefix","Filefix","FileFix"); my $priznak = 0; sub filter { $priznak = 0; for my $test1 (@robots) { if ($test1 eq $toname) { $priznak=1; } } if (!defined $area && $priznak == 0) { ......... Всего наилучшего, Mikhail --- GoldED+/W32-MINGW 1.1.5-b20120519
|
|
#20
09.03.2019, 12:21
|
|||
|
|||
|
remap & recived
Alexey Vissarionov написал(а) к Mikhail Stakhanov в Mar 19 11:11:00 по местному времени:
Доброго времени суток, Mikhail! 09 Mar 2019 10:13:10, ты -> Brother Rabbit: MS> Проблема в том что для areafix тоже все уходит на .1 use strict; MS> а почему так не работает ? (тестирую, всеравно пересылает) MS> кстати, перл к регистру букв восприимчив же ? MS> my @rotobs = ^^^ MS> ("areafix","Areafix","AreaFix","filefix","Filefix","FileFix"); Вот и ошибка... а режим strict ее выловил бы. MS> my $priznak = 0; Как мне развидеть эту строчку? MS> sub filter MS> { MS> $priznak = 0; MS> for my $test1 (@robots) man perlfunc /grep MS> { MS> if ($test1 eq $toname) MS> { MS> $priznak=1; MS> } MS> } MS> if (!defined $area && $priznak == 0) MS> { MS> ......... -- Alexey V. Vissarionov aka Gremlin from Kremlin gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii ... Профессионализм - умение оценить меру своей некомпетентности --- /bin/vi
|
Линейный вид
