The OpenNET Project / Index page

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

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

"Perl: строку из txt-файла в MySQL..."  
Сообщение от Camb email(ok) on 28-Фев-06, 16:11 
Привет!

Пытаюсь загнать строки (хеши паролей) из текстового файла в таблицу MySQL:
--------------
    open(MYFILE,"$file");
    while(my $line = <MYFILE>) {
        if ($line) {
         $line=~s/^\s+//;          // вот эти регулярки я не совсем понимаю
         $line=~s/\s+$//;
         push(@lines, $line);
        }
    }
    close(MYFILE);

    foreach my $line (@lines) {
        $dbh->do("INSERT INTO $PasswdTable (
                                passwd)
                                VALUES(?)", undef,
                                $line
                        );
    }
--------------

Все отлично, но такое чувство, что в базу также заносится невидмый концевик строки... и хеш пароля становится "кривым"
Файл с хешами паролей стандартный, созданный htpasswd

Однако я заметил, что если в phpmyadmin открыть запись и нажать сохранить, то хеш становится "нормальным"

Подскажите как быть?

Спасибо!!

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

 Оглавление

Сообщения по теме [Сортировка по времени, UBB]


1. "Perl: строку из txt-файла в MySQL..."  
Сообщение от madskull (ok) on 28-Фев-06, 16:16 
>    while(my $line = <MYFILE>) {
добавь тут
         chomp($line);
>        if ($line) {

"эти регулярки" убирают пробелы в начале и конце строк.
$line=~s/^\s+//;
$line=~s/\s+$//;

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

2. "Perl: строку из txt-файла в MySQL..."  
Сообщение от Camb email(??) on 28-Фев-06, 21:24 
Спасибо!

>>    while(my $line = <MYFILE>) {
>добавь тут
>         chomp($line);
>>        if ($line) {
>
>"эти регулярки" убирают пробелы в начале и конце строк.
>$line=~s/^\s+//;
>$line=~s/\s+$//;


Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




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

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