#!/usr/local/bin/perl $name = "W3xue教程"; $favorite = 10; # 喜欢数 $status = ($favorite > 60 )? "热门网站" : "不是热门网站"; print "$name - $status\n";