proc mulval { addr } { if {regexp {^([2][2-3][0-9])\.+(25[0-5]|2[0-4][0-9]|1[0-9]{2}|[1-9]?[0-])\.+(25[0-5]|2[0-4][0-9]|1[0-9]{2}|[1-9]?[0-9])\.+(25[0-5]|2[0-4][0-9]|1[0-9]{2}|[1-9]?[0-9])$} $addr } { puts "Valid IP Multicast Address" }...

У меня есть устаревший код Perl, который использует perl DBI с такими конструкциями, как $db->bind_param(1, $some_blob, {TYPE => SQL_BLOB}); где SQL_BLOB — пустое слово. Я хотел бы использовать строгую прагму в том же файле, но тогда...