VPF::Уборка спец символов - Форум программистов

MaxPayne

Дата 11.2.2006, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 9.8.2005

Репутация: нет
Всего: нет

Перед добавление в базу необходимо убрать спецсимволы:
\x00
\n
\r
\
'
"
\x1a

Делаю так:

$line =~ s|\\|\\\|g;
$line =~ s|\\n|\\\n|g;

Первая строка дает ошибку, вторая не работает. С другими тоже проблемс.

korob2001

Дата 12.2.2006, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Ты хочешь закоментировать символы, которые указал выше?

Код


#!/usr/bin/perl -w
use strict;

my $str = "Hello,\tworld\n!";

for ( $str ) {
      s/\n/\\n/;
      s/\t/\\t/;
}

print $str;

Также попробуй последовательности \Q, \q, \E

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

tishaishii

Дата 14.2.2006, 01:54 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: нет
Всего: 8

Код

use DBI;
my$dbh=DBI->connect($dsn, $user, $pwd, $attr);
my$sth=$dbh->prepare(<<'.');
INSERT INTO `T1` (
    `id_t1`,
    `title`
) VALUES (
    ?, ?
)
.
$sth->execute($id_t1, $title);
$sth->finish;
$dbh->disconnect;

Драйвер сам всё закомментирует.
А что ещё?

MaxPayne

Дата 16.2.2006, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 9.8.2005

Репутация: нет
Всего: нет

А в какой строке драйвер все закомментирует?
Здесь: $sth=$dbh->prepare(<<'.');?
Т.е. мне ее надо добавить в код?

$dbh = DBI->connect("DBI:mysql:user:localhost", "", "");
$dbh->do("INSERT INTO ses VALUES ('$i', '$s' );");
$dbh->disconnect;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »