The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Помогите написать скрипт"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение [Проследить за развитием треда]

"Помогите написать скрипт"
Сообщение от ice_one1 emailИскать по авторуВ закладки on 28-Авг-03, 11:14  (MSK)
Здраствуйте все возникла проблема
решил немного автоматизировать свою работу
суть следующая есть файл text в которов например такое
;
0000001
Коля
Позвонить 5.10 в 12.00
;
0000002
Вася
Встреча 15.10 в 13.00
;
и т.д.
и еще один файл mail с таким содержанием
0000001 kolya@mail.ru
0000002 vasya@mail.ru
и т.д.
Надо отправить на адрес kolya@mail.ru текст
Коля
Позвонить 5.10 в 12.00
Как это правильнее реализовать
  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Помогите написать скрипт"
Сообщение от Вася Искать по авторуВ закладки on 28-Авг-03, 13:28  (MSK)
>Здраствуйте все возникла проблема
>решил немного автоматизировать свою работу
>суть следующая есть файл text в которов например такое
>;
>0000001
>Коля
>Позвонить 5.10 в 12.00
>;
>0000002
>Вася
>Встреча 15.10 в 13.00
>;
>и т.д.

задача несколько упростится если первый файл будет формата:
0000001:Коля Позвонить 5.10 в 12.00:
0000002:Вася Встреча 15.10 в 13.00:
второй тоже можно сделать в таком же формате:
0000001:kolya@mail.ru:
0000002:vasya@mail.ru:

>и т.д.
>Надо отправить на адрес kolya@mail.ru текст
>Коля
>Позвонить 5.10 в 12.00
>Как это правильнее реализовать


  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Помогите написать скрипт"
Сообщение от Вася Искать по авторуВ закладки on 28-Авг-03, 13:43  (MSK)
#!/usr/bin/perl
open(F,"</path to file mail");
open(T,"</path to file text");
while(<F>){
           ($num,$mail)=split(/:/,$_);
            while(<T>){
                       ($number,$message)=split(/:/,$_);
                        if ($num eq $number) {
                        open(tmp,">/path to you tmp file");
                        print tmp $message;
                        close(tmp);
                        &sender;}
                        };
};
close(F);
close(T);
#
sub sender{
open(S,`mail $mail </path to you tmp file`);
}
#
вот чтото типа этого если я все правильно понял, писал на скорую руку могут быть ошибки... )
  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Помогите написать скрипт"
Сообщение от HFSC Искать по авторуВ закладки on 28-Авг-03, 13:53  (MSK)
>#!/usr/bin/perl
>open(F,"</path to file mail");
>open(T,"</path to file text");
>while(<F>){
>           ($num,$mail)=split(/:/,$_);
>
>            while(<T>){
>            
>          
>($number,$message)=split(/:/,$_);
>            
>          
> if ($num eq $number) {
>                        open(tmp,">/path to you tmp file");
>            
>          
> print tmp $message;
>            
>          
> close(tmp);
>            
>          
> &sender;}
>            
>          
> };
>};
>close(F);
>close(T);
>#
>sub sender{
>open(S,`mail $mail </path to you tmp file`);
>}
>#
>вот чтото типа этого если я все правильно понял, писал на скорую
>руку могут быть ошибки... )


file1="path/to/first_file"
file2="path/to/second_file"

for i in `grep '[A-Za-z]$' file1`
do
match=`grep -A 1 $i file | grep -v $i`
user=`echo $i | tr "A-Z" "a-z"`
echo $match | mail -s "$user $match" `grep -n $user file2 | awk '{print $2}'`
done

  Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "Помогите написать скрипт"
Сообщение от HFSC Искать по авторуВ закладки on 28-Авг-03, 14:02  (MSK)
>>#!/usr/bin/perl
>>open(F,"</path to file mail");
>>open(T,"</path to file text");
>>while(<F>){
>>           ($num,$mail)=split(/:/,$_);
>>
>>            while(<T>){
>>            
>>          
>>($number,$message)=split(/:/,$_);
>>            
>>          
>> if ($num eq $number) {
>>                        open(tmp,">/path to you tmp file");
>>            
>>          
>> print tmp $message;
>>            
>>          
>> close(tmp);
>>            
>>          
>> &sender;}
>>            
>>          
>> };
>>};
>>close(F);
>>close(T);
>>#
>>sub sender{
>>open(S,`mail $mail </path to you tmp file`);
>>}
>>#
>>вот чтото типа этого если я все правильно понял, писал на скорую
>>руку могут быть ошибки... )
>
>
file1="path/to/first_file"
file2="path/to/second_file"

for i in `grep '[A-Za-z]$' $file1`
do
match=`grep -A 1 $i $file1 | grep -v $i`
user=`echo $i | tr "A-Z" "a-z"`
echo $match | mail -s "$user $match" `grep $user $file2 | awk '{print $2}'`
done
точнее так

  Рекомендовать в FAQ | Cообщить модератору | Наверх

5. "Помогите написать скрипт"
Сообщение от ice_one1 Искать по авторуВ закладки on 28-Авг-03, 16:27  (MSK)
>file1="path/to/first_file"
>file2="path/to/second_file"
>
>for i in `grep '[A-Za-z]$' $file1`
>do
>match=`grep -A 1 $i $file1 | grep -v $i`
>user=`echo $i | tr "A-Z" "a-z"`
>echo $match | mail -s "$user $match" `grep $user $file2 | awk '{print $2}'`
>done
>точнее так

Ничего не выдает! Точнее не отправляет никуда ничего.
И еще не подскажите где взять доку по awk и grep на русском

  Рекомендовать в FAQ | Cообщить модератору | Наверх

6. "Помогите написать скрипт"
Сообщение от HFSC Искать по авторуВ закладки on 28-Авг-03, 17:58  (MSK)
>>file1="path/to/first_file"
>>file2="path/to/second_file"
>>
>>for i in `grep '[A-Za-z]$' $file1`
>>do
>>match=`grep -A 1 $i $file1 | grep -v $i`
>>user=`echo $i | tr "A-Z" "a-z"`
>>echo $match | mail -s "$user $match" `grep $user $file2 | awk '{print $2}'`
>>done
>>точнее так
>
>Ничего не выдает! Точнее не отправляет никуда ничего.
>И еще не подскажите где взять доку по awk и grep на
>русском
странно а у меня работало :)

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру